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SYSTEM AND METHOD FOR GENERATING AUTOMATIC USER INTERFACE 
FOR ARBITRARILY COMPLEX OR LARGE DATABASES 



CROSS-REFERENCE TO RELATED APPLICATIONS 

This application claims the benefit and priority of U.S. patent application serial 
no. 09/703,267 filed October 31, 2000 and U.S: provisional patent application serial no. 
60/276,385 filed March 16, 2001, and for purposes of the United States is a continuation- 
in-part of said application serial no. 09/703,267. 

BACKGROUND OF THE INVENTION 
Field of The Invention 

The present invention relates to the field of data processing, and more partial- 
larly to relational computer databases, and to systems and methods for automatically 
generating without any custom programming a user interface for the database, and/or 
a complete application utilizing the database. 

Description of the Related Art 

Modem databases - and in particular, complex or large databases which serve 
many concurrent users - are constructed as "client/ server" or "n-tier" (cli- 
ent/server/server) systems, wherein specialized components perform separate (and 
carefully delineated) functions. At a minimum, such systems are generally composed 
of a "back-end" relational database management system (RDBMS) - which maintains 
and manipulates information according to requests submitted by other components or 
software processes (or expert human administrators) via open-standard query lan- 
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guages (i.e., SQL) - and a ''front-end" presentation lI^TfctiiAS^^ 
ates the end-users' work with the back-end data. 

Developing such a database system consists both in defining the organizational 
structure to be used by the back-end for storing data (that is, the complement of tables 

5 which store data, and the relational links between these tables) - known as a "schema" 
or "data model" - and in building a front-end program (or "application") via which 
end-users can manipulate this data (and which communicates with the back-end on the 
users' behalf). And although the back- and front-end components must be closely syn- 
chronized and reflect similar structures, these respective development efforts are typi- 

10 cally rather separate - with the requisite synchronization and parallels in structuring 
being effected only manually. 

Moreover, the construction of front-end applications is generally undertaken us- 
ing conventional third- or fourth-generation computer languages, which require by- 
hand coding at a very low level of functionality. Current tools for easing the develop- 

15 ment burden are limited to fairly specific (and, still, fairly low-level) uses - among 
them, providing more-sophisticated or "richer" controls for manipulating individual 
data elements; associating individual user-interface elements with specific back-end 
storage locations; or - at best - offering "form generator" or "wizard" facilities to auto- 
matically generate the code for a simple UI display which manipulates a single under- 

20 lying (back-end) data table. 

Even with such tools, considerable work remains in building a complete, fully- 
functional UI for a back-end schema of any appreciable size or complexity - especially 
where industrial-grade performance and reliability is required. And as enterprise-scale 
data models continue to grow, the attendant explosion of manual-coding requirements 
25 quickly becomes unwieldy - and eventually, untenable. 
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BRIEF SUMMARY OF THE BSFTOmOSE 



It is an object of the invention to provide acomplete and fully functional user in- 
terface (UI \ for any arbitrarily complex or large database schema, without any custom 
software programming. 

5 It is another object of the indention that, once a back-end schgma has been de- 
signed and constructed within the RDBMS, t he system can automatically "interrogate " 
tins schema, and "absorb" its structure into an interna l cache (or, at the cost of real-time 
performance, the internal caching mechanism can be sidestepped) . - 

It is a further object of the invention to present to end-usere,Jor any arbitrarily 
10 complex or large database, a comprehensive application throu gh which the back-end 
can^be operate d, and through which all conventional database activities - searching, 
l isting adding, editing - can be supported, across all base-tables comprising the ^x 
schema. 

It is yet a further object of the invention that the application so presented reveals 
15 (and enforces) the relational/hierarchical organization among the tables within the 
back-end via smoothly integrated UI mechanisms which are embedded directly into the 
base-table screen displays - providing a natural, powerful, and easy-to-use environ- 
ment for managing complex data relationships and interactions. 

One embodiment (the "reference implementation") of the present invention 
20 achieves these and other objects by providing a system, currently written. in Java and 
JSP, which automatically and dynamically ("on-the-fly") generates (in HTML, 
Javascript, and HTTP/ CGI code), a fully functional UI system, based upon, and con- 
nected directly to, the underlying data mode l ( as instantiated within an Oracle8i SQL 
RDBMS). The UI is built based on an automated jntenggation of the RDBMS, either as 
25 needed (on-the-fly) or by building an in-memory representation of the data model. The 
generated UI comprises all mode displays (e.g., browse, search, edit, and add) for all 
tables, and a full complement of mechanisms, integrated into the mode displays for 
representing, navigating, and managing relationships across tables. This embodiment 
has the capability of creating such a UI where the underlying RDBMS is complex and 
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comprises a pluralitybf tables, constraints, and reURfisfu^^ feS-EfeBffifel 
''context stack'' for maintaining (and suspending) the working state of a particular table 
(comprising selected record, display "mode", pending form-field entries, in-effect 
search-filter parameters, Browse-mode scroll position, and any filter constraints im- 

5 posed from above stack contexts) while "drilling down" across relationships to work 
with related information (in a possibly constrained working context) and returning 
relevant changes to the parent-context table, and a corresponding UI convention for 
displaying and navigating this stack. The embodiment provides a set of rules for trav- 
ersing/navigating the context stack. It further provides naming conventions and anno- 

10 tational methods for enhancing and extending the representation of table structures, 
constraints, and relationships within the back-end so as to more fully support revela- 
tion of the schema structure through external interrogation. 

BRIEF DESCRIPTION OF THE DRAWINGS 

The following briefly describes the accompanying drawings: 

15 FIG. 1 is a normal "browse mode" display from the reference implementation. 

FIG. 2 is a normal "search mode" display from the reference implementation . 

FIG. 3 is a normal "edit mode" display from the reference implementation . 

FIG. 4 is a normal "add mode" display from the reference implementation. 

FIG. 5 is a diagram of the demonstratio n KDBMS schema from the reference im- 
20 plementation. 

FIG. 6 is a diagram of the relationship types comprised in the paradigm of the 
present invention, 

FIG. 7 is an annotated screen dump showing the active elements in a "browse 
mode" display. 
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FIG. 8 is an annotated screen dump showing ffi^aftt^ 
"add" or "search" mode display. 

FIGs. 9A - 9E show an exemplary "master/detail drill-down" and a doubly- 
constrained subordinate table search as rendered in the reference implementation, 

5 In addition, the complete source code for the reference implementation, and 

scripts for creating the reference demonstration schema (and demonstrating the ex- 
tended back-end annotational methods employed) are set forth at the end of this cfe- 
scription. 

DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENT 

10 The preferred embodiment of the invention, as illustrated in Figs. 1 through 9E, 

corresponds in most respects to an implementation of the invention being developed 
under the trademark SCHEMAUVE™ which is herein referred to as the "reference im- 
plementation " The preferred embodiment is further represented substantially in full 
by the reference-implementation source code files, documentation and scripts in the 

15 appendices accompanying and incorporated by reference into this application, as fur- 
ther described in the text that follows. The preferred embodiment includes in addition 
some further developments which are herein described which have not as yet been 
rendered in the reference implementation. 

Although the invention has been most specifically illustrated with a particular 
a preferred embodiment, it should be understood that the invention concerns the princi- 
ples by which such embodiment may be designed, and is by no means limited to the 
configuration shown. 

As can be more fully appreciated by studying the accompanying source code, 
. the preferred embodiment operates in accordance with a comprehensive and formal- 
25 ized paradigm for presenting a(n end-)user interface to any arbitrarily large or complex 
relational database schema (or "data model"), as represented via generally accepted 
data-modeling conventions (comprising the explicit declaration of any cross-table "ref- 

5 
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erential integrity" (RT| constraints, and ftdl exploS&W*0ffcii<M 
datatype- and constraint-attribute declaration mechanisms) and instantiated within a 
commercial-grade SQL RDBMS engine (Oracle8i, for example, in the reference imple- 
mentation). The paradigm encompasses: 

5 • A set of "modes" for interacting with a(ny) given database table (which modes, 
taken together, cover all desired end-user operations which may be effected upon 
such tables), and a corresponding display format ("screen" or "window" architec- 
ture) for each mode. These modes comprise: 

• BROWSE (full or filtered, possibly context-constrained) (see Fig. 1) 
10 • Search (new or revised, full or context-constrained) (see Fig. 2) 

• Edit (full or context-constrained) (see Fig. 3) 

• Add (full or context-constrained) (see Fig. 4) 

Certain key screen elements for navigation control/support are shared across all 
of these displays (see Figs. 7 - 8): 

15 • A Title Bar which indicates current mode, current table, context- 

constraint (if any), and filter indicator (if search-filter is in effect) 

• A Table-Navigation Header which provides direct "random ac- 
cess" to any system table, in either Browse or Search mode, via ei- 
ther a full (dropdown)-list of all (available) system tables or a short 

20 list of (clickable) "quick links" to key tables. Use of this header will 

also reset (and abandon) any nested stack-contexts in effect 

• A Context-Stack Display which indicates the active table and 
mode at each level in the context stack (described below), and also 
allows direct navigation ("pop-up") to any suspended ("higher") 

25 stack-level (with abandonment of all lower levels) 

• A Mode-Navigation Bar which allows the user to move amongst 
the various available mode displays for the current working table 
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(oT'stack level"). The list of av®©IFniM@fiS^^^^fflSfeSfly/ 
according to both the user's access rights (described below) and the 
current state of the working session (i.e., whether a search-filter is 
currently in effect). The full list of possible mode-navigation options 

is: FULL BROWSE, FILTERED BROWSE, NEW SEARCH, REVISED SEARCH, 
and ADD. Note that FILTERED BROWSE and REVISED SEARCH appear 
only when a search-filter is currently in effect; if so, the former re- 
stores a Browse-mode display with the most recent filter and scroll- 
position, while the latter pre-populates a Search-mode display with 
the current filter parameters 

Note that, although not shown in the reference implementation, DELETE capability 
is also readily incorporated - as either (or both) true record-removal from the un- 
derlying table, and/or record "flagging" for UI suppression (with continued un- 
derlying-table record retention) - simply by adding (according to the user's access 
rights, potentially) another pushbutton within the Edit-mode display 

• A set of rules and methods for moving among the modes (and, hence, displays) 
for a given table (see "mode navigation" in Fig. 7), comprising: 

• Explicit (manual) mode-selection via the mode-navigation bar 

• Browse-to-Edit mode-transition for a specific record, by clicking on a 
Browse-row's leftmost-column "row label" link 

• Implicit retum-to-Browse transitions from other modes: 

• From Edit mode, upon record commit (Update pushbutton) 

• From Add-mode, upon record commit (Add pushbutton), with 
optional override via an on-screen checkbox setting which "locks" 
user into Add mode for the current table until checkbox is 
cleared, or until user explicitly navigates away 

• From Search mode, upon filter commit (Search pushbutton), 
with optional override via an on-screen checkbox setting which 
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^enables direct Search-to-Edit triMMFnif MBffl^d&B&&S&s, 
provided user has requisite edit rights, hi the reference imple- 
mentation, this checkbox setting is session-persistent (that is, it 
remains in effect until the user's session terminates, so long as the 
user does not explicitly turn it off); it could as easily be made 
"sticky" to a variety of degrees - lasting for only a single search, 
for a single stack-context session, or even across system sessions 
(via database-stored user "preferences") 

• A set cf "relationship types" between individual database tables (which types, 
taken together, cover all desired connections between any two tables), and a cor- 
responding UI convention for representing each type of relationship "in-place" 
within the (single-table) mode displays. As shown in Fig. $ these "relationship 
types" comprise: 

• Cross-reference (a.k.a. "foreign key" or "FK") 

• Master/detail (a.k.a. "parent/child" or "one-to-many") 

• A set of rules and methods both for extending the representation of any single ta- 
ble (according to its relationships to other tables) (Figs. 7 and 8), and for managing 
(and navigating across) these relationships (comprising the resolution, display, 
and manipulation of cross-referenced elements within a primary table's display 
context and the creation or revision of related-table information within the context 
of a primary table by "drilling down" to a secondary table, constraining the 
"working context" of that secondary table as necessary, and "passing back" rele- 
vant changes to the primary-table context) (see Fig. 9). Said rules and methods 
comprise: 

• Foreign-key fields occurring within a table - that is, fields which 
contain "keys" that uniquely identify cross-referenced records from 
secondary (aJLa. "foreign", or "referenced") tables - are automati- 
cally "resolved" for display purposes, so as to substitute a corre- 
sponding (and, presumably, more meaningful) "name" field from 

8 
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thrforeign-table record (in lieu d^ffiiteTk^ 

generally accepted data-modeling conventions, is generally inten- 
tionally devoid of intrinsic meaning): 

• The paradigm specifies a "default" behavior for determining this 
name field within the foreign-table record, based (optionally) 
upon a combination of field-naming conventions, field datatype 
(i.e., character data), field constraints (i.e., unique values), and/ or 
order of appearance within the table definition (i.e., first 
non-primary-key field meetingxrther requirements) 

• In tihte reference implementation, this field is the first one whose 
name ends with "JMAME" - or, in special-case handling for ta- 
bles containing "LAST_NAME", "FIRSTJ^AME", and 
"MTODLEJtf AME" columns, a composite "Last, First Middle" 
value. Additional special-case processing supports successive 
cross-referencing through multiple tables until a " JNAME" field 
is discovered, if (and only if) intervening tables include 
unique-value constrained FK columns. If no name field can be 
resolved, the UI displays the actual key values (that is, the pri- 
mary-key values from the foreign table) themselves 

• Alternatively, the rules for determining the name field can them- 
selves be made "soft" - that is, specified once (globally) by a sys- 
tem administrator, and used thereafter to drive all (default) name- 
field constructions. (See the discussion of naming conventions 
and annotational methods, below.) 

• The default behavior for name-field resolution can also be over- 
ridden with (either or both) "global" and/or "local" custom-name 
definitions for specific tables, as described below (within the dis- 
cussion of extensions to, and customization of, the baseline UI 
paradigm) 
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• ~7Vuto-resolution of display-naStC ^pll^OlJbth^ig^S^nSde 

cells (where a single display-name is derived and substituted for 
a given foreign-key value), and Add/Edit/Search form-fields 
(where a dropdown list includes the display-names for all for- 
eign-table records, and UI actions on this list are correlated to the 
underlying keys) 

For "master" tables in any master/ detail relationships (as specified 
via the core complement of naming conventions and annotational 
- methods, discussed below)> record displays incorporate a "pseudo- 
field'' for each associated detail-table, which indicates the number 
(i.e., count) of corresponding detail (or "child") records belonging to 
the displayed master (or "parent") record: 

• In the reference implementation, the master/ detail pseudo-fields 
are included only for Edit-mode displays (so as to allow for 
streamlined system logic and, therefore, improved run-time per- 
formance) 

• Alternatively, these pseudo-fields can also be (and have been, in 
alternate implementations), readily incorporated into the Browse-, 
Search-, and Add-mode displays, at the cost of added complexity 
in supporting views (Le., correlated-subqueries for Browse-mode 
displays) and state-management logic (i.e., transitioning to Edit 
mode for not-yet-completed Add-mode transactions before allow- 
ing navigation to associated detail-table contexts where the user 
might add dependent "child" records), and the attendant per- 
formance implications 

To enhance the run-time performance of Browse-mode displays, the 
system automatically generates a corresponding back-end "view" 
for every table, which: 

• Resolves all FK displays, per above 

• Incorporates any and all default-behavior overrides 

10 
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•~5y rendering (and, subsequenfSjC^^ 

tive language of the underlying RDBMS (i.e., SQL), effectively 
"projects" this extended representation of the table (according to 
its relationships to other tables) from the software (where it is de- 
rived) back into the RDBMS environment itself, for significantly 
improved rendering performance and reduced network- and ap- 
plication-server loading 

See ihe discussion, below, of rules and methods for traversing/navigating the 
context stack, for more information on the creation and revision of related-table in- 
formation within tiie context of a primary table 

A set of user-interface conventions for signaling other (non-referential) data con- 
straints, and for enforcing adherence to same, across all Add/Edit/Search forms, 
comprising: 

• For "required" fields (i.e., underlying table-columns with "NOT 
NULL" CHECK constraints, in the reference implementation), the 
corresponding data-field labels (descriptive names appearing to the 
left of the entry areas) are displayed in boldface (see Fig. 3) 

• The physical width of text-entry (vs. dropdown) fields - as well as 
the maximum permitted length for entered text - is driven directly 
by the specified data-length of the underlying table columns. 

• For text fields whose length-limit exceeds a certain threshold (glob- 
ally defined, in the reference implementation, though potentially 
user-preference configurable), the on-screen field is presented as a 
multiline, vertically scrollable control with multiple-row visibility, 
rather than the default single-row (and non-scrollable) entry field. 
(In the reference implementation, this is an HTML "TEXTAREA" 
rather than an "INPUT' field.) Note that this functionality is also 
applied to Browse-mode table cells, so that occassional lengthy cell- 
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eriSies are made scrollable (and tffeOf^'iW 
reasonable table-layout) 



• Required fields (per above) - along with numeric, date, and text 
fields (whose length might exceed the threshold specification de- 
scribed above) - also generate automatic validation logic which 
prompts the user to correct any erroneous or problematic data- 
entries locally - that is, on the end-user's (or "client") computer, be- 
fore any communication with the database takes place. In the refer- 
ence implementation (which is web-basedj, this manifests as client- 
side Javascript routines - along with all requisite invocation logic, 
automatically embedded into the appropriate entry-field specifica- 
tions - which are delivered along with the (system-generated) web- 
page. Failed validation (upon field-exit and/ or at page-submission 
time, depending on the type of validation) puts the "focus" back 
into the corresponding problem-field (or the first of several), high- 
lights ("selects") the entire field contents, and displays an informa- 
tional pop-up dialog box explaining the problem. This effectively 
"projects" constraint-awareness from the back-end RDBMS (where 
the constraints are defined) into the front-end client, for significantly 
improved performance and reduced network- and database-loading 

• A hierarchical "context stack" for maintaining (and suspending) the working state 
of a particular table (comprising selected record, display mode, pending form- 
field entries, in-effect search-filter parameters, Browse-mode scroll position, and 
any filter constraints imposed from above stack contexts) while "drilling down" 
across relationships to work with related information (in a possibly constrained 
working context) and returning relevant changes to the parent-context table, and a 
corresponding UI convention for displaying and navigating this stack 

• A set of rules and methods for traversing/navigating the context stack, among 
them: 
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TKe user is always working at the|pfc|j^:g^^ 
stack display) level of the context stack. Typically (ie., at initial sys- 
tem entry, or following direct access via the table-navigation 
header), there is only one level in the stack (that is, no nested or sus- 
pended stack contexts are in effect) 

Changing modes for a given table (or "stack context") is referred to 
as "lateral" or "horizontal" movement (see Fig. 7) 

Traversing relationships (either cross-reference or master/ detail) is 
referred to as "drill-down" (and, upon return, "pop-up") or "verti- 
cal" movement across tables (and nested stack contexts) (see Fig. 9) 

Vertical navigation therefore always increases or decreases the 
"stack depth", while horizontal navigation merely alters the "view" 
of the current table - affecting only the current (bottom-most) stack 
level 

Drill-downs are supported by enabling "hot-linked" (or "clickable") 
labels for the related data fields in the primary table (stack context) 
(see Figs. 9B and C) 

A drill-down traversal "suspends" the above stack context 

Drilling-down across a cross-reference relationship imposes no "con- 
text constraints" on the lower stack context, while drilling-down 
across a master/ detail link constrains the subordinate table to only 
those records "belonging" to the above stack-context table-record 
(see, e.g., Fig. 9C), such that 

• A superseding filter is applied to all detail-table mode displays, 
separate from (and invisible to) any lower-context search-filters 
which may subsequently be applied by the user 

• Even a "full browse" request (with no explicit search-filter) there- 
fore shows only related child-records 
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• The title bar (across all modesjp^l&^ 

nate-table context constraint with a 'TOR <PARENT-TABLE> 
<PARENT RECORD>"-style suffix (vs. the " (FILTERED)" suffix, 
which indicates a user-applied search-filter) 

• In Edit mode (for a specific child-table record), the user is pre- 
vented from changing the datum that links the child record to its 
parent record, by filtering the dropdown-list for the correspond- 
ing FK field so that it contains only the parent-record value 

Full lateral movement (mode-switching) is supported within the 
subordinate stack context 

User can "return" (ascend the context stack) either by "committing" a 
lower-level action (a database edit or addition), or by abandoning 
the subordinate stack context (via the context-stack display or table- 
navigation header). In the former case, committed changes are 
automatically propagated to the above stack context and displayed 
in the corresponding mode display (i.e., "results" are "returned") 
unless the user has enabled POWER Add in the lower context; in the 
latter case, any pending changes are abandoned, and the above stack 
context is restored exactly as originally suspended 

Cross-reference drill-downs are "context sensitive" to the parent- 
field status: A drill-down from a blank parent-field enters the sub- 
ordinate stack context in "Add" mode, while a drill-down from a 
non-blank parent-field enters the subordinate stack context in "Edit" 
mode for the already-selected (cross-referenced) secondary-table re- 
cord. Nevertheless, the default drill-down mode can be "overrid- 
den" (that is, abandoned) via a lateral or horizontal mode-switch in 
the lower stack context. In any event (and regardless of intervening 
actions), a "committed" return from a subordinate stack context will 
always properly update the parent record 
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• Master/detail drill-downs generaga5©fTer^fJ®€W(^#E^® 35n- 
text in "Browse" mode, although this behavior can be modified as a 
"business rule" via the described customization mechanisms (see 
Fig. 9 and the CreateSchema.sql script) 

• The user may always return directly to any suspended ("higher") 
stack-context by clicking on the corresponding stack-display entry. 
Doing so effectively "pops" the stack, and abandons any work-in- 
progress in all lower contexts 

• Integrated, group-based security mediation, "granular" both in scope (i.e., global-, 
table-, row-, or field-level) and by task (browse, edit, add, delete), which dynami- 
cally adjusts all system displays (throughout the entire UI paradigm) according to 
the user's granted access-rights, such that prohibited options are always hidden 

Note, finally, that while the preferred embodiment operates according to the particu- 
lar paradigm described above, it remains possible to effect alternate paradigms which 
would nevertheless be consistent with the basic principles of the invention. For in- 
stance, it may be desirable in some instances to realize instead a "modeless" UI para- 
digm, such that all end-user activities (browsing, searching, editing, adding) are sup- 
ported by a single, unified display context (such as a "spreadsheet" display). 

Software (written in Java and JSP, in the reference implementation) automati- 
cally and dynamically ("on-the-fly") generates a fully functional UI system (written in 
HTML, Javascript, and HTTP/ CGI in the reference implementation) based upon, and 
connected directly to, the underlying data model (as instantiated within the RDBMS), 
and in full conformance to the described paradigm. In order to generate the UI, the 
RDBMS is first interrogated or scanned by this software, applying a body of rules to 
interpret the data model (comprising its tables; their column-complements, datatypes, 
and constraints; and relationships across the tables), and to correlate same to the UI 
paradigm (either "on-the-fly", or by building an in-memory representation, or 
"cache", of said data model, and by automatically deriving enhanced back-end 
"views" of all tables, which are consistent with the paradigm and which, further, go- 
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herently incorporatTany and all extensions, cvLstoj^mW^',M^^Q^<B^&Sies 
which may have been specified as described below). 

A core complement of naming conventions and annotational methods (written 
in XML, in the reference implementation) is used for enhancing and extending the 
representation of the table structures and relationships (entirely within the back-end 
representation of the data model, in the reference implementation) so as to more fully 
support revelation of the schema structure through external interrogation. Said meth- 
ods consist of "annotations" (or "comments") which are "attached to" (or "associated 
with") individual tables or table-columns within the back-end RDBMS; in discussing 
these methods, it is important to note that although there are any number of alterna- 
tive embodiments for the formatting, storage, and association of such annotations with 
their corresponding objects - including (but not limited to): formatting as XML- 
tagged, name/value-paired, or fixed-sequence data; storage within native-RDBMS 
"comment" fields, application-defined database tables, or external (operating system) 
disk files; and association via native-RDBMS comment "attachment", explicit object- 
naming (within the annotations themselves), or pointers or keys (attached to the ob- 
jects themselves) - the methods ultimately concern the principles by which such em- 
bodiments may be designed and applied to illuminating the schema, rather than any 
particular configuration or embodiment itself. Within the reference implementation, 
then, the attachment of annotations, as XML-formatted "comments", directly to data- 
base objects, should be considered illustrative of, rather than essential to, the methods 
so described. The core conventions and methods comprise: 

• The indication of column-datatypes not natively (or explicitly) supported by the 
underlying RDBMS (for example, "binary" or "yes/ no" fields in the Qracle8i- 
based reference implementation) yet subject to special handling within the UI 
paradigm, via the use of specific object-name suffixes ("JFLAG", in this example) 

• The specification of master/ detail relationships between tables (as distinguished 
from a [reverse-Jaross-reference relationship), by associating a table-level annota- 
tion with the master (or "parent") table, and indicating both the table name and 
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the parent-referencing FK field for each detaiplfbllF^ B& &e- 

ateSchema.sql script) 

Following the paradigm, the generated UI comprises all mode displays for all 
tables, with integrated(--into*-the-mode-displays) mechanisms for representing, navi- 
gating, and managing relationships across tables (comprising hierarchical context con- 
straint / enforcement, and pass-through/"pop-up" return, or "propagation", of subor- 
dinate-context results). In rendering this UI, the preferred embodiment applies logic 
to (reconvert column- and table-names retrieved through RDBMS interrogation from 
all-uppercase text, if necessaiy"(as it is with Oracle8i, in the reference implementation) 
into mixed-case, initial-caps text (where only the first letter of each word - or "token" 
- is capitalized), and to replace underscore characters with spaces. The case- 
restoration logic is designed to also consider a list of approved acronyms - or, more 
generally, "exceptions" - which, when encountered as tokens within object-name 
strings, are instead cased exactly as they appear in the list (This could mean all- 
uppercase, all-lowercase, or any non-conventional mixture of cases, such as "ZIP- 
code".) This case-exceptions list is provided once, globally, for the entire system, and 
impacts all table- and column-name references throughout the UI presentation. (In the 
reference implementation, the list is defined as a string array within a public "Cus- 
tomCaps" object; this object could in turn be initialized via a disk file, or a special da- 
tabase table.) 

The software also constructs and utilizes the above-described hierarchical con- 
text stack for maintaining (and suspending) the working state of a particular table 
(comprising selected record, display mode, pending form-field entries, in-effect 
search-filter parameters, Browse-mode scroll position, and any filter constraints in- 
posed from above stack contexts) while "drilling down" across relationships to work 
with related information (in a possibly constrained working context) and returning 
relevant changes to the parent-context table, and a corresponding UI convention for 
displaying and navigating this stack (see annotations regarding stack display in Fig. 
9C). Note further that, in addition to its core function in supporting nested working 



17 



WO 02/059793 PCT7US01/42867 

contexts (and by vffT&e of its always being on-sar<$&l$ Ihe^d^!® JtecM^OffieOBles 
certain ancillaiy capabilities: 

• Since the current context (or "table-session") always corresponds to the "bottom" 
of the stack (Le., the rightmost link in the display), the user can "refresh" his cur- 
rent table-session by clicking on this link. This can be useful, for instance, when 
the user wishes to "undo" or revert numerous changes made to a current Edit- or 
Add-mode form (but not yet committed) without having to re-navigate to the cur- 
rent table and record 

• 'When a system (exception (seoirity violation, intern^ otot, etc.) occurs, the result- 
ing error screen also incorporates a stack display. Although the default error- 
screen behavior is to restart the user's session after a timed delay (and thereby 
abandon all work in progress), the user will often be able to recover his session by 
making a selection from the error-page stack display 

The preferred embodiment further provides a structured collection of methods, 
mechanisms, tools, techniques, and facilities for extending, customizing, adapting, or 
overriding the baseline UI paradigm and software to support non-standard and/or 
special requirements ("business rules"), comprising: 

• Means to "override" the default behavior for FK "display-name" resolution with 
(either or both) "global" and/or "local" custom specifications on how to generate 
display-names for a given foreign-key: 

• Such overrides can be useful, for example, when the foreign (refer- 
enced) table lacks a (resolvable) name column; when a composite 
(multiple-field), treated, or otherwise modified display-name is de- 
sired; when the sort-order within display lists should be modified; 
or when the foreign-table records depend on yet other table-records 
(foreign, in turn, to the FK-referenced table) for full name construc- 
tion (for instance, where FKs into a "CITY" table depend in turn on 
FKs from CITY into a "STATE" table in order to distinguish like- 
named cities, such as Portland, OR and Portland, ME) 
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• A^&stom specification consists # iSiTg^liffi 8?at 
generates key-value/ display-name pairs for any and all foreign- 
table key values 

• Such specifications will automatically propagate throughout the en- 
tire UI, including all relevant Browse-mode cells and 
Add/Edit/Search form-fields 

• Global display-name specifications are associated as table-level an- 
notations (see above) with the referenced foreign table 

• Local specifications are associated instead as column-level annota- 
tions with the referencing (foreign-key) column in the base-table it- 
self 

• In this way, both "default" (global, or system-wide) and "special- 
case" (local, or single referencing-table only) custom display-names 
can be defined for the same foreign table. If a "local 7 ' specification is 
defined for a given FK-column, it will supersede any "global" or 
"default" specification also defined for the referenced (foreign) table. 

• In the reference implementation, specifications are made via a spe- 
cial XML tag ("<sql>") which is attached to the table or column (for 
global or local specifications, respectively) as a "comment" 

• Ability to alter the order and visibility of individual table-columns across all 
mode displays (Browse, Add, Edit, Search) vs. the actual column-complement and 
-ordering of the associated (underlying) table: 

• This is sometimes desirable in a post-production environment, es- 
pecially when the particular back-end RDBMS product in use makes 
it impractical or impossible to alter the actual structure of the under- 
lying table once it has been populated with data and is participating 
in referential-integrity relationships with other populated tables 



19 



WO 02/059793 PCT/US01/42867 

• ATpecification consists of a listiifg iBTfte 

the desired display order (either by name or, alternatively, by ordi- 
nal position in the actual underlying table) 

• If a specification is made, then any columns not explicitly included 
within that specification will be suppressed from the UI mode dis- 
plays 

• Specifications are associated as table-level annotations with the ac- 
tual underlying table 

• In the reference implementation, specifications are made via a spe- 
cial XML tag ("<columnOrder>") which contains sub-tags ("<d>") 
indicating the desired columns in order and by name, and is at- 
tached to the table as a "comment" 

• Support for composite or "custom views" of multiple-table data which mimic a 
single base-table. Such a derived (non-table) result-set is typically generated by a 
"stored query" or "SQL VIEW" within the back-end RDBMS, and nevertheless can 
be rendered and presented by the UI as if it were an actual single base-table (sub- 
ject to certain limitations which may be imposed by the underlying RDBMS - par- 
ticularly, the inability to edit or add "records" for such result-sets, rendering them 
effectively "read-only") 

• Ability to manually define Search-mode "dropdown fields" (which list the range 
of possible values for a given column) for such custom views: 

• Because, by its nature, the custom view appears to be an actual table 
- and therefore obscures the underlying (real) tables on which it is 
based - the system cannot automatically resolve the referential- 
integrity (RI) links that would normally serve to identify the appro- 
priate value lists (i.e., foreign-table values) 

• Moreover, the normal value-to-key translations managed by drop- 
down fields are inappropriate for custom views anyway, since these 
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views actually incorporate the cfbS^^i^S€5^tr^*SBi®®aI^es 
(rather than foreign keys that point to these values, as base-tables 
do) 

• To support custom-view dropdown lisjgjhat (appear taL behave 
consistently with the ge neral (actual-table) UI paradigms, then, a 
manual (explicit) dropdown-list specification is made for each corre - 
sp onding custom-view column 

• A specification identifies the foreign table which contains the drop- . 
down-list values, and the column (either by name or, alternatively, 
by ordinal position within that table) which supplies the actual val- 
ues 

• Specifications are associated as column-level annotations with their 
corresponding custom-view columns 

• In the reference implementation, specifications are made via a spe- 
cial XML tag (" <manualDropDown>'') which, in turn, ^contains 
sub-tags ind icating the related foreign-table na me ("<foreignTable- 
Name>") and key field (^foreignKeyFiekb*"), and is attached to the 
corresponding view-column as a "comment" 

• In-place pass-through (drill-down) from custom views to Edit-mode displays for 
underlying (component) base-table members: 

• Because the "stored queries" or "SQL VIEWs" that underlie custom 
views are typically non-updateable (according to RDBMS limita- 
tions), the usual UI mechanisms for editing data cannot be used with 
these views. Nevertheless, it is often desirable to provide users with 
easy access to editing for (at least some of) the data behind the views 

• To enable such editing access, a mechanism is provided to create a 
(series of) cross-referential link(s) from the individual cells (row- 
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vaBIes) in a given column of a Br0*@Rfo<5^ Ehk 
forwarding the user to a secondary display - most commonly, to an 
Edit form for the underlying base-table containing that cell's value 
(although it is, in fact, possible to link-through to any arbitrary table, 
row, and column, and in any "mode") 

While such links usually reference the same underlying base-table 
(and -field) for every row in the column, special-case extension logic 
can reference different tables for different rows, according to "trig- 
ger" or "switching" values from another column in that same dis- 
play-row 

A further variation of the mechanism (described below) modifies the 
behavior of the leftmost-column "row label" links, rather than the in- 
terior Browse-mode table-values themselves 

On-screen, the link appears as a highlighting (in the reference im- 
plementation, a "clickable link" or HTML "HREF") of the cell-value 
itself. (Empty cells display the value "NONE" so as to still enable 
drilldown navigation) When the user selects (clicks on) the link, the 
display forwards (typically) to an Edit form for the corresponding 
record in the appropriate underlying base-table, with the proper 
edit-field pre-selected (i.e., given the "focus"). In effect, the system 
auto-navigates to the same exact base-table Edit form, selected- 
record, and edit-field that the user could (theoretically) navigate to 
himself, manually, in order to alter the underlying datum that sup- 
plies the custom view 

The working context for this drilled-down Edit form is constrained 
by the same mechanisms that govern master/ detail drilldowns (as 
described above) - that is, a stack-context filter is imposed on the 
edit session in order to prevent the user from changing the datum 
that links the base-table record to the custom view (note that this 
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alS5 requires a separate, explicit i^BnEQdii)ffi(0 JhelMsBfiHft jafc a 
''detail table'' to the custom view); and if/ when the user "commits" 
the drilled-down edit session (by pressing the "Update" button), she 
is automatically returned to the "parent" custom view 

A specification identifies the underlying (or "target") base-table; the 
(initial) base-table display-mode (typically, "Edit"); the custom-view 
column whose corresponding row-value contains the identifying 
key for the target base-table record; the custom-view column (if any) 
whose corresponding row-value contains the "constraining" (mas- 
ter/detail) key; and the base-table field-name which should be se- 
lected (ie., titie field that contains the target value, and should there- 
fore receive the "focus") 

Specifications are associated as column-level annotations with their 
corresponding custom-view columns 

A special-case extension of the specification can be associated as a 
table-level annotation with the custom view itself (rather than one of 
its columns). In this context, the specification will modify the behav- 
ior of the leftmost-column "row label" links (which, in normal-table 
Browse-mode displays, link to Edit-mode displays for the corre- 
sponding table-records). A common use for such specifications is to 
support master/ detail-style transitions to secondary Browse-mode 
displays of records which "belong to" the selected custom-view rec- 
ord 

In the reference implementation, specifications are made via a spe- 
cial XML tag ("<customDrillDown>") which, in turn, contains 
sub-tags indicating the target base-table ("<tableName>"), display- 
mode ("<mode>"), identifying-FK field within the custom view 
("<keyColumn>"), ronstraining-context or master/detail key, if any 



23 



WO 02/059793 PCT/US01/42867 

(' ; ^rentColiunn>''), and tax^mm^^Bamd^BMd^A- 
tached to the corresponding view-column as a "comment" 

The preferred embodiment also supports the specification and enforcement of 
both global and granular (by table and function) access rights and activity-stamping, 
according to a group-based (rather than hierarchical) permissions scheme, and based 
on table entries which themselves can be entered and maintained via the system: 

• In the reference implementation, six tables support these security features: 
PEOPLE, USERS, SECURITY.TABLE, SECURTIY_GROUP, 

SECURTTY^GROUP^USERS, and SEClnRifW_GROUP_TABLE: 

• The PEOPLE table contains an Active JFlag field, which allows for 
// deactivation ,, of individuals without destroying existing RI links 
throughout the database. Every system user must appear in the 
PEOPLE table (among other reasons, to support full-name resolu- 
tion when displaying usage-tracking fields through the UI), and 
if/when a user's PEOFLRActive JFlag is turned off, the user is im- 
mediately blocked from all further system access 

• The USERS table incorporates (among others) a Login_ID field, 
which is correlated against the system-user's operating-environment 
credentials. (In the reference implementation, this is the UID which 
has been authenticated and forwarded by the web server; alterna- 
tively, it could be the user's OS login.) When the system establishes 
a new user-session (upon the user's initial contact), it attempts this 
correlation to a valid USERS.Ix>ginJD. If no correlation can be 
made, access to the system is denied; otherwise, the corresponding 
USERS.UsersJECey value is henceforth associated with that user's 
session 

• SECURITY JTABLE maintains a list of all security-mediated tables 
and custom views. (Alternatively, this list could be automatically 
derived from the system's data-model interrogation; the use of an 
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explicit and hand-managed tableB^ppart^fS ©i^^S^^MSojS' of 
''special'' or "hidden" tables and/or views) 

• SECURTTY_GROUP supports the definition of functional security 
roles. In and of themselves, entries to the SECURTTYJ3ROUP table 
are little more than descriptive names; their primary purpose is to 
serve as "connective conduits" between USERS and 
SECURITYJTABLEs. It is important to note (again) that 
SECURTTY^GROUPs are non-hierarchical; that is, each group can be 
granted any mix of rights to any arbitrary set of tables, without re- 
spect to the rights of other groups. And USERS can be assigned to 
any number of SECURITY_GROUPs; When a user belongs to mul- 
tiple groups, her aggregate rights comprise a superset of the rights 
for each of the groups to which she belongs 

• SECURITY jGROUPJJSERS simply effects many-to-many relation- 
ships between USERS and SECURITY JSROUFs, and is defined (via 
the methods described above) as a "detail" table to both of these 

• Similarly, SECURTTY_GROUP_TABLE supports many-to-many rela- 
tionships between SECURITY.GROUPs and SECURITYJTABLEs 
(and is a "detail" table to both). Additionally, however, the 
SECURTrYjGROUPJTABLE incorporates Boolean (true/false) col- 
umns which indicate permission for the related SECURTTY.GROUP 
to (respectively) browse, add to, edit, or delete from the correspond- 
ing SECURITYjrABLE. This forms the nexus of access-rights con- 
trol 

♦ All UI displays automatically adjust to the current user's access rights. In particu- 
lar, the following navigational elements ("links", as defined in the reference im- 
plementation), appear or are suppressed according to the user's rights: 



Mode-navigation bar links (browses/searches/add); here, sup- 
pressed links are entirely removed from the display, rather than 
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singly "disabled" (or made ''noriRJB^^^ 
links, below) 

• Record-edit links (in the first column of Browse-mode displays) 

• Drill-through cross-reference links (on the labels of 
Add/Edit/Search dropdown fields) 

• Drill-down master/ detail links (on the labels of Edit-form mas- 
ter/detail summary-counts) 

• Note that custom views with custom-drilldown specifications are subject to "dou- 
ble" security mediation: If edit permission to the custom view itself is withheld 
for a given user, then all custom-drilldown links will also be disabled. But (even) 
if the custom-view edit permission is granted, the user must also have the neces- 
sary rights to support each particular drilldown (e.g., edit or browse permission 
on an underlying table) before the corresponding link will be enabled 

• Separately (and assuming the necessary access rights have been granted), all sys- 
tem add/ edit activity can be time- and user-stamped at the table-record level (op- 
tionally, on a per-table basis). Security-stamping is completely automatic, and is 
governed (in the reference implementation) by the presence of four special col- 
umns within the table: EnteredJBy_Users_Key, EntryJDate, Modi- 
fied_By_Users_Key, and IastJModified_Date. if these columns exist, then any 
"add" event causes the current USERS.UsersJKey (from the user's session) to be 
recorded in both the Entered3y_Users_Key and Modified_By_UsersJ<Cey col- 
umns, and the current system time to be stamped into both the Entry_Date and 
Last_Modified^Date columns. "Edit" events, of course, update only the Modi- 
fied_By_UsersJKey and Last_Modified_Date columns. Note further that when 
they exist in a table, these fields are visible only in Browse and Search displays; 
they are hidden (but automatically updated) from Add and Edit displays 

• Although not present in the reference implementation, the granularity of this 
model can be readily extended with both row- and column-level access media- 
tion: 
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RdW-tEVEL security allows for tlJS ©arviaiii^i©^ ^NtftfB $f ^hy 
given table to be made visible or invisible (and, therefore, accessible 
or inaccessible) to a given user: 

• In a sense, row-level security can be said to affect only "content" 
visibility, rather than "structural" visibility (as with other security 
axes); a row-level security filter impacts which particular table- 
entries are presented, but never which classes or types of data 
elements 

• A specification thus identifies the filter condition (i.e., WHERE 
clause) that relates one or more table-columns to (some transfer- 
mation/JOIN-sequence on) the current user. (Note that such 
"user relations" may optionally involve attributes of the particu- 
lar user, and/or those of "security groups" to which the user be- 
longs) 

• Specifications are associated as table-level annotations with the 
actual underlying table 

• Because there are no effects upon the structure or "shape" of the 
data, these filters can be "encapsulated", effectively, and intro- 
duced as a (logical) "shim" layer between the raw back-end tables 
and the data-dictionary object model. 

• By exploiting the identical column structure of each such "shim 
view" to its underlying base-table, on the one hand, and to the 
"virtualized" schema view (as constructed during the interroga- 
tion phase) of that table, on the other, the rest of the system logic 
and infrastructure can be insulated from any awareness of (or 
sensitivity to) this mechanism 

• Application of the row-level filter consists of "surgical" modifica- 
tions to the defining SQL for the corresponding Browse-mode 
view (see above), so as to incorporate the requisite additional 
WHERE clause (and any additional FROM-clause tables, utilizing 



27 



PCT/US01/42867 

The same view-integration an&ffim-xh§£§fct® jfogfrtMti^ Bn- 
ployed within the reference implementation in generating said 
view) 

• Function-oriented mediation (i.e., Browse/Edit/ Add/Delete 
granularity) is supported via (optional) separate specifications 
(per table) for each function (and with a "default/ override" hier- 
archy among these specifications - such that Browse rights obtain 
for editing, for instance, unless explicit Edit rights have been 
specified). The Ul-generation logic then compares records 
presence across the respective (resulting) views to resolve specific 
rendering and action decisions (i.e., is this record editable?) 

COLUMN-LEVEL security allows user access to be governed on a 
field-by-field basis: 

• Specifications are analogous to those described in the reference 
implementation for table-level security (see the discussion of 
SECURTIY^GROUPJTABLE, above), except that only "Browse" 
and "Edit" rights are meaningful on a per-column basis (that is, 
there is no way to "Add" or "Delete" only individual columns) 

• Column-level specifications are treated as "subtractive overrides" 
to table-level specifications, such that table-level specifications 
serve as "defaults" that can be further restricted - but not ex- 
panded - by column-level specifications 

• Application of column-level security to the Browse function con- 
sists of an additional "overlay" view which hides additional col- 
umns as necessary 

• Edit-function mediation is processed by the UI on a per-field ba- 
sis, either (or both) during rendering (where display conventions 
utilize read-only fields, or otherwise signal non-editability via la- 
beling conventions [such as italicized text]) and/or processing 
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Twhere attempts to change noI^TSbrdJ^e Are'' f^SMTOwfth 
an alert notification to title user) 

Also incorporated into the preferred embodiment are both generalized and 
special-case exception-handling mechanisms, with integrated session-recovery sup- 
port 

• The generalized exception-handling mechanism guarantees a controlled recovery 
from any unanticipated error condition. This mechanism: 

• presents as much diagnostic information as possible, within a para- 
digm-consistent UI display, comprising: 

• A pass-through errortext from the underlying program-execution 
environment 

• A complete "(program call-) stack dump" indicating the sus- 
pended (and nested) program-function calls in effect at error-time 

• The entire current context-stack display 

• Permits user recovery either by: 

• Controlled reinitiation of a(n entirely) new session 

• Navigation through the context-stack display to a pre-error ses- 
sion context, thereby (generally) enabling the user to recover his 
session-in-progress (more-or-less) intact, vs. requiring a restart 
from scratch 

• Special-case exception-handling mechanisms are defined separately for certain 
types of system errors which are common or "normal" (such as authorization fail- 
ures or session timeouts). In such cases, these "customized" exception-handlers 
can suppress unnecessary technical detail (which can be confusing or alienating to 
end-users and give the misimpression of software failure), and provide additional 
(end-user suitable) information specific to the user's particular error context. The 
reference implementation can identify and separately handle the following com- 
mon exceptions: 
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SESSION-SEQUENCE ERRORS: In th^iliS^erfdl^^ 
again, is web-based), it is important that the system govern the 
"flow" or sequence of pages passed back and forth between the 
(web-)server and the client (web-browser); as a result, the system in- 
corporates several mechanisms to track and enforce this flow (com- 
prising back-button "defeat" logic, and incremental serialization of 
all URLs [such that the system always knows what serial number to 
"expect" along with the user's next page-submission]). If the user 
manages to violate this flow, either intentionally or inadvertently, 
(perhaps by selecting a "favorite" or "bookmark", or by clicking 
multiple links on the same page before the server can respond), the 
system can detect this particular error, provide a detailed explana- 
tion of how and why it might have occurred, and (per above) allow 
the user to recover her session-in-progress without any loss of work 

SECURITY violations: Generally, the system proactively prevents 
the user from attempting access to any authorized system modes or 
functions. However, in the (web-based) reference implementation, it 
is not impossible for the user to navigate to a situation where he 
might possibly attempt an illegal transition - or to manually adjust a 
URL so that it attempts such unauthorized access without triggering 
a session-sequence error (as described above). In these cases - and 
in the simpler case, when a user attempts access without any system 
rights whatsoever - the system provides a plain-English report of 
exactly what access rights the user has tried to violate 

SESSION TIMEOUT: Because the system maintains a "user session" in 
which various context, sequence, and configuration information is 
tracked, and which (because it consumes system resources) can ex- 
pire after a (configurable) period of disuse - and also because (in the 
web-based reference implementation) the dialog between client and 
server is "connectionless" (meaning that there can never be any 
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automatic detection by the serveiiPfl^T,i6feff SS^uit^<S S®^'' 
a connection) - it is entirely possible that a user may try to continue 
or resume a session which appears perfectly intact from his perspec- 
tive (i.e., in his web-browser) but for which the system has discarded 
the corresponding user-session. In this case, a full session- 
reinitiation is still required - but it can at least be delivered along 
with a meaningful explanation of what has occurred . 

These special-case error handlers dovetail and integrate smoothly with the gener- 
alized exception-handling facility, and share many of the same features (includ- 
ing, when available, the session-stack display). Within the reference implementa- 
tion, these handlers are hard-coded, but they describe the basis of a subsystem 
which can be readily extended - abstractly and dynamically - in several ways: 

• Specific exceptions - and their corresponding, customized error dis- 
plays - can be defined and administered via a central list (or table), 
and automatically detected (and their respective displays invoked) 
at runtime, within the framework of a generalized facility and with- 
out the need for custom programming 

• Information can be "mined" from the pass-through errortext - and, 
potentially, from the runtime environment as well - according to the 
nature of the particular error, and used (if appropriate) in the con- 
struction of dynamic error displays (via templates, for example) 

• Custom follow-on actions can be associated with specific errors, so 
that special-case recovery procedures can be specified. (For in- 
stance, a database-detected data-entry violation might cause a return 
to the previous data-entry form.) "Mined" runtime-environment in- 
formation can also be used here to govern the behavior of said fol- 
low-on actions 

A generalized, extensible, and data-driven "pop-up help" facility is also in- 
cluded in the reference implementation. This facility allows for the specification of 
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descriptive text wluEh can be associated both wi&Opdfy BU(^^W%S&Qhal 
elements, and with (any) individual schema elements (i.e., table-columns). When the 
user positions his mouse over a described object (or data-field) and pauses for a 
specified timeout interval, the system will flash a pop-up window (or "balloon") dis- 
playing the corresponding description. The system thereby becomes self- 
documenting with respect to both the UI paradigm itself, and the meaning of its data- 
fields. Within the reference implementation, the specifications are stored within back- 
end tables - so that they, too, may be administered via the system UI - although any 
of the above-described amiptatipnal methods could alternatively be used, 

Except as noted, the detailed implementation of each of the foregoing capabili- 
ties is set forth in full in the accompanying source code, which represents the com- 
plete source code for a working version of the reference implementation. A full dem- 
onstration RDBMS schema upon which this system can operate has been provided, 
and accompanies this application and is incorporated herein by reference (see Fig. 5 
and the CreateSchema.sql script). 

Numerous extensions of the above-described scheme are of course possible: 

• Most importantly, while the reference implementation is in various instances cus- 
tom-coded to the data-dictionary architecture of its particular underlying RDBMS 
(Le., Qracle8i), the scheme is nevertheless readily converted to a "generic" (or 
"RDBMS-agnostic") architecture through the introduction of a platform-neutral 
"middleware" layer. (The DatabaseMetaData class within the Java 2 Platform 
Standard Edition vl.3.1 API Specification, for instance, is easily applied toward 
this end.) The described invention, therefore, is by no means limited to a specific 
RDBMS product 

• A set of mechanisms, rules, and methods may be provided through which each 
end-user can evolve (and manage) personalizations to the UI architecture (with 
persistent back-end storage and tracking by user and/or group) - including (but 
not limited to) preferred table-navigation hierarchies; UI "entry points" based on 
usage-frequency patterns; default (or most-recent) searches/filters for each back- 
end table; default "page size" for Browse-mode lists (adjusted for the particular 
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user's screen resolution, for example); default BtiB-3£ria* SB^d&cK tft^fe^fiSdJQe- 
fault 'Tower Edit" and 'Tower Add" settings. Because user-tracking is already 
integrated (for security purposes), it is a simple matter to add the supporting ta- 
bles and Ul-application "hooks" to collect, store, and utilize such preference in- 
formation 

• Expanded concurrency-control options are easily incorporated into the scheme. 
Many database-related systems offer a range of behaviors which extend from un- 
fettered write-back of edited table-records (offering maximum system perform- 
ance, at the cost of minimal overwrite protection), through competing-update de- 
tection with approval/abandonment of data overwrites (a blend of performance 
and protection, at the cost of added complexity), to full edit-record locking (offer- 
ing maximum protection at the cost of performance); and while the reference im- 
plementation incorporates only the first of these behaviors, the others can cer- 
tainly be added - along with a system-configuration mechanism for choosing 
among them - in a straightforward manner 

• A generalized journaling/ auditing subsystem may also be integrated. Such a 
subsystem could, for instance, utilize database "triggers" to update a master table 
with a new tuple (comprising table-name, record-key, column-name, old-value, 
new-value, user-key, and timestamp) whenever any table-record is modified. 
Such a mechanism would (at a cost in system performance, of course) permit 
complete backtracking/ ,, rollback" to previous database states, and guarantee the 
ability to recover from any rogue data modifications (whether accidental or mali- 
cious) and identify the actors 

• A further extension to journaling/auditing support is the ability to require a user 
to explain his justification for (only) certain data-field changes, and then either re- 
cord that explanation to the system journal or audit log (along with the other tuple 
information), or (possibly) roll-back the transaction (if the user declines to supply 
an explanation). Such a facility could be implemented with additional text-entry 
fields integrated into the primary Edit-mode display, or alternatively, with "pop- 
up window" logic (which, within World Wide Web presentation, could comprise 
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additional brow^r windows or DHTML ''simiSkedf^flli^ SnfiHBBfr She 
specification of which data-fields should require such justification would be con- 
sidered a "business rule", and could be implemented via any of the annotational 
methods described elsewhere in this document. Such specifications could also be 
assigned at various levels of global vs. local "scoping" (i.e., perhaps automati- 
cally for all date fields, or only for specifically assigned text fields) 

• Within the current (World Wide Web-based) reference implementation, it is pos- 
sible to select certain navigational links (for example, from the context-stack dis- 
play or the mode-navigation bar) which will abandon the userVcurrent screen 
display and, with it, any data entries or modifications which may have been made 
but not yet committed to the database. Although this behavior is by design, it 
may be desirable to add a pop-up "warning" mechanism for such cases, so as to 
alert the user to the imminent loss of data (and to provide a means for aborting 
said action). Such a mechanism could utilize client-side Javascript logic to: 

• Set an internal flag each (and every) time any on-screen change is 
made 

• Invoke a "cover function", each time a screen-abandoning link is 
clicked, which will display a confirmation dialog (pop-up window) 
if the "change flag" has been set (or, if the flag is not set, will simply 
execute the link) 

• Proceed with the link action (and abandon the current screen) only if 
the user supplies explicit confirmation 

• A variety of extensions can be made to the Browse-mode display paradigm, com- 
prising: 

• The ability to sort Browse-mode listings (by any combination of col- 
umns) by clicking on the corresponding column-headings. Succes- 
sive clicks on the same column-heading would invert the sort-order 
for that column; successive clicks on different columns would effec- 
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tivay produce ''ordered sorting^^^ 

column is the "primary" sort, and each successively less-recentiy 
clicked column is the next "subordinate" sort) 

Support for "random-access" page navigation, wherein the table- 
header (which, in the reference implementation, allows direct entry 
only for the number of rows per page) would also allow direct entry 
of the desired page number. For instance, a Browse-mode display 
whose table-header said "PAGE 5 OF 12 (TOTALING 300 RECORDS AT 25 
ROWS ipER PAGE)" wo^d thus fender both the "5" and the "25" as 
text-entry fields, so that in addition to resizing the page length (by 
changing the rows-per-page entry), the user could also "zoom" to a 
specific page just by changing the page-number entry. This would 
eliminate the need to scroll, page-by-page, from either the top or 
bottom of the result-set 

Similarly, another form of random-access page navigation could be 
introduced via the addition of phonebook-style "tab" links (for hr 
stance, "A | B | C | D ...") such that clicking a particular link 
would jump to the first record in the result-set whose correspond- 
ing-column entry began with that character: 

• Said "corresponding column" could be (initially) determined ac- 
cording to similar default-processing rules to those embodied in 
the reference implementation for FK display-name resolution (for 
instance, the first column whose name ends in "_NAME", if any) 

• Alternatively, the corresponding column could simply track the 
current (primary) sort-order column (as described above), if im- 
plemented 

• Yet another option would be to allow explicit designation of the 
corresponding column via an associated dropdown-list of all ta- 
ble-columns 
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• However selected, any change I^TtttH.figM^cxriffi^ g$cguBn 
would then automatically regenerate the tab list, according to the 
range of actual (sorted) leading characters appearing within that 
column. In this way, numeric tabs would appear for a "social- 
security number" column, vs. alphabetic tabs for a "last name" 
column 

• A variety of extensions can be made to the Search-mode display paradigm, com- 
prising: 

• In the reference implementation, field-value filters are applied by 
default as prefix matches (i.e., as "starts with" comparisons), with 
optional support for explicit relational-operator prefixing (compris- 
ing <, <=, >=, >, and exactly =). Relational options could be further 
extended to support ranges ("between x and y"), NULL/NOT- 
NULL conditions, and other arbitrarily complex transformations on 
the corresponding field-values (such as field-value substitution into 
a complex string-manipulation or arithmetic expression) 

• The reference-implementation Search-form paradigm comprises a 
single set of fields (corresponding to the underlying table-columns), 
where any entered filter-values (for the respective columns) are logi- 
cally "AND"ed together. A more general and flexible search facility 
could: 

• Allow toggling between logical "AND" and "OR" combination of 
a search form's filter-values 

• Allow "stacking" of multiple search-form copies, such that the 
fields in each individual (sub-)f orm comprise a parenthetical filter 
"phrase", which is "AND"ed or "OR"ed together (selectably, as 
above) with the parenthetical phrases for other sub-forms 

• A variety of extensions can be made to the Edit-mode and Add-mode display 
paradigms, comprising: 
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In me reference implementation, 8&Oa¥oi^ 
constraints on underlying table-columns are intercepted and re- 
ported only upon violation, and then only via the generalized excep- 
tion-handling mechanism (in response to a back-end RDBMS excep- 
tion "throw"). Alternatively: 

• Special-case exception handling (as described above) could still 
exploit the thrown back-end exception, but provide clearer diag- 
nostics (i.e„ exactly - and only - the field-value that has violated a 
"unique" constraint), and then restore the data-entry form with 
the problem-field contents pre-selected; or 

• Employ separate database-interrogation logic for each "unique"- 
constrained field, so as to "pre-qualify" data-entries - and, 
thereby, allow for "in-place" duplicate-entry detection and signal- 
ing (without ever leaving the data-entry form, and without invok- 
ing formal exception-handling mechanisms) 

Similarly - but more generally - violations of any arbitrary "check" 
constraints (such as imposed value-ranges, or required satisfaction 
of algebraic expressions) are intercepted and reported only upon 
violation within Hie back-end RDMBS. Instead, such constraints 
could be extracted from the back-end and "projected" into the client- 
side UI display (for the reference implementation, via custom- 
generated Javascript routines). Doing so would allow the detection 
and signaling of constraint violations immediately upon data-entry, 
without (additional) contact with the back-end RDBMS (and this, in 
turn, would obviate the need for any display/session recovery 
logic) 

When adding new records, the reference-implementation Add-f orm 
logic does not "initialize" fields for which the back-end defines "de- 
fault" values - that is, although the underlying table-column will 
(properly) be set to its def ault value if the corresponding Add-f orm 
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fielffis not expUridy set, the user 

ting the new record) of that default value. Instead, the form could 
automatically pre-populate the appropriate fields with their corre- 
sponding default values (as determined through interrogation of the 
underlying column-constraints) 

• In certain situations, it may be desirable during schema interrogation to "deduce" 
relational interdependencies between tables where no explicit referential-integrity 
constraints have been defined. In such cases, it is possible to further compare 
field-names and associated attributes across tables, so as to identify columns 
which (for instance) are identically named, and (only) one of which is the primary 
key for its respective table. Under these conditions, it could (optionally) be as- 
sumed that the other-table column is a foreign-key cross-reference to the first col- 
umn. Note that, in so doing, the UI paradigm would then enforce referential in- 
tegrity for this relationship, even absent the explicit back-end constraint. 

• Additional mechanisms for further customizing or adapting the baseline UI para- 
digm and software to meet non-standard and/or special requirements ("business 
rules") are also indicated, such as: 

• Specification and enforcement of correlations, interactions, or inter- 
dependencies between disparate data-elements (either within or 
across base-tables), comprising: 

• "Context-sensitive dropdown controls", whose dropdown-lists 
are filtered (or "constrained") based on user-defined relations to 
superior stack-contexts (other than direct master/detail con- 
straints, which already are included as a part of the core UI para- 
digm). Such controls could be specified via any of the aforemen- 
tioned annotational methods. Specifications would "attach" to 
the subordinate-level table-column (i.e., the column whose drop- 
downs should be "filtered" or "sensitized"), and would consist of 
tuples indicating (at least) the superior-level table, relevant table- 
column, and a relation between the superior and subordinate 
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TOumns. Each tuple could (opdi^ 

to ''scope' 7 the relation - for instance, so that the filter should con- 
sider only so many levels above the current stack-context, or that 
the filter only applies if certain other tables also do (or do not) 
appear in intervening levels - and possibly, even, only in a spe- 
cific sequence. It would also, of course, be further possible to as- 
sign multiple such "sensitivities" to the same target-column. 
Consider, as an example, a project-management schema, in which 
both equipment and technicians are assigned to projects; techni- 
cians have specific equipment certifications; and schedules apply 
both to projects and to technicians. In assigning new technicians 
to a given project, one may wish to automatically "pre-qualify" 
the dropdown-list of available technicians such that it only in- 
cludes technicians who are certified on (at least some of) the proj- 
ect's equipment, and who also are currently available during the 
lifetime of the project 

"Interactive dropdown controls" are similar, but effect relations 
between multiple elements within a single mode-display, rather 
than across context-stack levels. Using the above example, a sin- 
gle many-to-many table might connect technicians to projects; if 
the table is accessed directly (that is, at the topmost stack-level, 
rather than by drilling-down to it from the associated project rec- 
ord), then each time the "project"-dropdown is altered, the "tech- 
nician" dropdown-list would be automatically regenerated ac- 
cording to the above-described criteria. Again, (potentially mul- 
tiple) specifications per target-column would resemble those for 
context-sensitive dropdowns, except (of course) that the "supe- 
rior-level table" and "scoping extensions" would be irrelevant 
here. Note that although these two dropdown-types are similar - 
and that, in some cases (namely, where context-sensitive drop- 
downs utilize only direct drill-down relations), the former could 
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155 simulated with the latter - l^ffi^is?^^ 
which makes it more suitable for certain types of use 

• "Context-sensitive and interactive column-level security" would 
allow data-entry fields to "lock" (or unlock) according to values 
of (and changes in) other data-fields (for instance, once a project 
has reached a certain "status" designation). Again, specifications 
could be effected via any of the aforementioned annotational 
methods, would "attach" to the "target" table-column (i.e., the 
. ~ column whose -security is being mediated), and would resemble 

those for context-sensitive and interactive dropdowns, respec- 
tively, except that the "relation" specification would be sup- 
planted by a Boolean evaluation on the controlling data-field. 
Note that this same mechanism is easily generalized further to 
support the toggling of arbitrary column-level constraints (by 
adding a "constraint definition" field to the specification tuple). 

• Triggering of custom software subprocesses - on the front- and/or 
back-end - under specified data conditions and/ or at specified sys- 
tem-transition events, such as the "data-change justification" pop-up 
mechanism described above in detail 

• Various mechanisms for enhancing web-client (or client/server) user-interface 
performance and functionality can be introduced, comprising: 

• "Buffered" dropdown controls, which maintain their own separate 
connections to the back-end RDBMS, and allow the screen display to 
be rendered before their dropdown lists have been completely 
populated. Such dropdowns can further be made 'typeable", so 
that a user could begin typing a desired value and "home-in" on 
matching list-entries; in this case, list-retrieval from the RDBMS can 
by dynamically revised to retrieve a successively smaller (i.e., 
closer-matching) result-set. 
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• ''Cashing" or ''sharing" of duplic Jtel0f^>d(Si*^ Gtet^^hfeffi^WS E§ts 
are lengthy and their retrieval significantly impacts front-end per- 
formance and network traffic. For instance, the user-stamping fields 
described above (Entered_By_Users_Key and Modi- 
fiedJBy_Users_Key) generally appear together within the same ta- 
bles, always share identical dropdown lists, and can (potentially) 
grow quite long over time; logic to retrieve the shared list once from 
the RDBMS - rather than twice - for use within both dropdown con- 
trols can effect meaningful gains in system responsiveness. _ 

• "Back-link" support, to provide functionality similar to that of the 
standard web-browser "back" button, but without violating the in- 
tegrity of the user-session or the hierarchical context stack 

• "Bookmarking" support, to provide compatibility with standard 
web-browser "bookmarks" or "favorites" functions: By clicking a 
special button or link, users can re-render their current display with 
a re-formed URL, which completely describes the current user- 
session and context-stack (or, alternatively, a limited and "cauter- 
ized" subset of same) so as to allow bookmark-based return to an 
equivalent display at a later date. 

• Although the preferred embodiment comprises a stand-alone application which 
interacts (on a client/server basis) with a back-end RDBMS, it may in some cir- 
cumstances become desirable instead to integrate some or all of the invention di- 
rectly into said RDBMS product (or a tightly-coupled extension or utility to same). 
Of course, any such alternative embodiment would still conform to the principles 
of the described invention. 

Finally, the implementation described herein could be further varied in ni- 
merous respects, but still be within the principles herein illustrated. For instance, 
while the reference implementation uses a World Wide Web presentation mechanism, 
a more conventional client-server or native-GUI system could instead be delivered. 
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Also, while the reference implementation dependsRtfCaSh^ 
requirements and naming conventions in the design of any underlying or "target" 
schema (comprising the use of a single unique, auto-generated primary-key field for 
every table; the existence of a supporting "sequence" [Le., reference-implementation 
RDBMS mechanism for auto-generating primary keys] for every table, and that each 
sequence be named for its corresponding table plus a "J3EQ" suffix; the reservation 
of "_VIEW"-suffixed names across the entire table/view namespace [for use by auto- 
generated system views]; the use of certain column-name suffixes as alternatives to or 
substitutes for direct datatype- or other attribute 7 driven discovery [such as a " JFLAG" 
suffix to connote "yes/no" or "binary" fields, or a "JDATE" suffix to indicate 
time/ date data]; and a specific complement of security-related tables, as described be- 
low), such requirements and conventions can be easily supplanted, circumvented, or 
removed, and do not in any way define or limit the scope of the invention. 

It is evident that the embodiment described above accomplishes the stated ob- 
jects of the invention. While the presently preferred embodiment has been described 
in detail, it will be apparent to those skilled in the art that the principles of the inven- 
tion are realizable by other implementations, structures, and configurations without 
departing from the scope and spirit of the invention, as defined in the appended 
claims. 
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<%! 

// $Revision: 2.6 $ 
5 // $Date: 2001/10/30 08:54:22 $ 

%> 

<%@ page import="dbUtils . *" %> 
<%@ page import="HTMLUtils „ *" %> 
10 <%8 page import="sessionUtils.*" %> 
<%@ page import="java . sql. *" %> 
<%@ page import="java.util. *" %> 
<%@ page import^" common. *" %> 

15 <%6 page autoFlush="f alse" buf fer="1000k" errorPage="/Error500. jsp" 
session="true"%> 

<%! public static final String version_AddEditForm_jsp « n $Revision: 2.6 $"; 
%> 

20 

<HTML> 

<HEAD> 



<%@ include file=" common/Entry Points . jsp" %> 
25 <%@ include f ile="common/GlobalHeaderVARS. jsp" %> 

<%@ include f ile=" common / Empty Pa ramCheck . jsp n %> 



String unqStr= 

30 

TableDescriptorDisplay . getNoCache (TableDescriptorDisplay . For JavaScri 
pt); 

if (request .get Parameter ("unq") null && 

request . getParameter ( "unq" ) . equals ( (String) 
35 session . getAttribute ( "unq" ) ) ) { 

/* 

if (Debug. areDebugging) { 

Debug. doLog ("AddEditForm unq matched ! " , Debug . INFO) ; 
} 

40 */ 

session . setAttribute ( "unq" , unqStr ) ; 

) 

else if (request .getParameter ("stackLevel") J= null && 
request. getParameter ("stackLevel") .equals ("0") ) { 
45 /* 

if (Debug. areDebugging) { 

Debug. doLog ("Chose to restart from header" , Debug • INFO) ; 
} 

*/ 

50 session . setAttribute ( "unq" , unqStr) ; 

} 

else if (request .getParameter ("unq") 1= null && 
session.getAttribute("unq") = null) { 
// *THIS* is a (real) expi red-session error. . . 
55 response. sendRedirect ("/Schemalive/ExpiredSession. jsp") ; 

return; 

} 

else { 
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/* 

if (Debug. areDebugging) { 

Debug. doLog("AddEditFonn unq did not match" , Debug . INFO) ; 
} 

5 */ 

// *THIS* is actually an out-of-sequence error... 
response. sendRedirect ("/Schemalive/OutOf Sequence, jsp") ; 
return; 

} 

10 Connection con=null; 

Statement stmt=null; 

Statement sfmt=null; 

ResultSet rs=null; 

ResultSet sf^null; 
15 boolean canBrowseFlag; 

boolean canEditFlag; 

boolean canAddFlag; 

try { 

con=SQLUtil . makeConnection { ) ; i 

20 %> 

<%@ taglib uri="/WEB-INF/taglib/stack. tld" pref ix="sessionUtils n %> 

<% response. setHeader ("pragma n , "no-cache") ; %> 
25 <% response. setHeader ("Expires n , new java.util. Date (new 

java.util.Date() .getTime() -100) .toStringO) ; %> 

<%@ include f ile=" common /GlobalHeader Javascript . jsp" %> 

30 <% 

if (request. getParameter ("newPageSize") != null) ( 
session . setAttribute ( "pageSize" r 
request .getParameter ("newPageSize") ) ; 

} 



35 



// ses s ion. setAttribute ("power Add" , "No"); 



String tableName==request .getParameter ("tableName") ; 
if (tableName — null) { 
40 // entryPoints is defined in common/EntryPoints . jsp 

for (int i=0; i<entryPoints. length; i++) { 

if ( Arrays. binarySearch(headerTableList, entryPoints [i] ) >= 0) 
{ 

tableName=entry Points [i] ; 
45 break; 

) 

} 

if (tableName == null) { 

if (headerTableList. length > 0) { 
50 tableName^headerTableList [0] ; 

} 

} 

) 

String doProcess=request. getParameter ("doProcess") ; 
55 if (doProcess — null) { 

doProcess="new"; 

} 

String stackLevel=request .getParameter ("stackLevel") ; 

44 



10 



WO 02/059793 PCT/US01/42867 

if (stackLeWl «= null) { 
stackLevel = "@"; 

} 

String mode=request .get Parameter ("mode") ; 
if (mode — null) { 
mode= "search"; 

} 

if (usersKey — null I I tableName «= null) { 

throw new ServletException ("<p><br><br><br>"+ 

"      fcnbsp; snbsp;   Snbsp;    Snbsp; & 
nbsp; Snbsp; "+ 

"</b>YOO ARE <b>NOT AUTHORIZE D</b> TO USE THIS SYSTEM<bXbr>"+ 

15 "             finbsp; snbsp;   finbsp; & 

nbsp; finbsp; finbsp; finbsp; n ) ; 

> 

%> 

20 <sessionUtils: stack tableName="<%= tableName %> n mode="<%= mode %>" 

stackLevel="<%= stackLevel %>" database="<%= dbName %>" dbConn="<%= 
dbConnName %>"> 
<% - 

// %= stacklnfo % 

25 %> 

</sessionUtils : stack> 

<% 

30 // First, check to see if we should be processing 

//Hashtable returnHash=null; 

//DBConnectionManager connMgr=null; 

//Connection con=null; 

//Statement stmt=null; 
35 //Result Set editResultSet=null; 

/* 

String re tumTable=request. get Parameter ("retumTable") ; 
if (retumTable != null) { 
40 session. setAttribute ("retumTable" , retumTable) ; 

} 

*/ 

LinkedList 1= (LinkedList) session. getAttribute ("sessionStack") ; 
Hashtable tableVals= ( (StackElement) 1 .get (1 . size () -1) ) . getFormValues ( ) ; 
45 if (mode. equals ("search") && doProcess .equals ("revised") ) { 

tableVals=( (StackElement) 1 .get (l.size()-l) ) . getSearchParams () ; 

} 

DataDictionary ddl=DataDictionary. get Instance (dbName, dbConnName) ; 
50 DataDictionaryTD ddtd^ddl .get DataDictionaryTD (tableName) ; 

Enumeration displayFieldsEnumeration - ddtd. display Fields () ; 

/* 

55 if (doProcess. equals ("return") ) { 

int index=lnteger.parselnt (request . getParameter ("index") ) ; 
LinkedList 1= (LinkedList) session . getAttribute ( "LinkedList" ) ; 
returnHash= (Hashtable) 1 . get (index) ; 

45 
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1 . remove (indexW 

session . setAttribute ( "LinkedLis t w , 1 ) ; 
doProcess= (String) returnHash. get ("doProcess") ; 
} 

*/ 

if (mode. equals ("edit") ) { 
// build query String 

StringBuffer editQStr=new StringBuf f er () ; 

Enumeration qStrFieldsEnumeration - ddtd.displayFields ( ) ; 
while (qStrFieldsEnumeration . hasMoreElements ( > > { 

String fieldName = (String) qStrFieldsEnumerati on. nextElement () ; 

if (fieldName.endsWith("_DATE n ) ) { 

editQStr - append ( " to_char ( " +f ieldName+ " , * MM/ DD/ YYYY ' ) AS "); 

> 

editQStr. append (fieldName+", ■) ; 

} 

editQStr . deleteCharAt (editQStr .length () -1) ; 
editQStr . insert ( 0 , " SELECT n ) ; 

edi tQStr. append (" FROM "+tableName+" WHERE "+ddtd.getKeyField() + 
n-i "+ r equest .get Parameter ("keyValue") +" ' n ) ; 

if (Debug. areDebugging) { 

Debug. doI»og< "editQstr (with globalCon) : "+editQStr, Debug. INFO) ; 

} 

//con= (Connection) pageContext.getAttribute ("globalCon") ; 
//connMgr=DBConnectionManager. get Instance () ; 
//con=connMgr.getConnection(ddtd.getDBConnection() ) ; 
//con=DriverManager . getConnection ( JDBCURL) ; 

stmt=con . createStateraent () ; 

rs = stmt . executeQuery (editQStr . toString ( ) ) ; 
rs.next () ; 

} 

%> 

<jsp: directive. page session="true"/> 

<TITLE>Schemalive</TITLE> 
<SCRIPT> 

function f ilterOperators (rawText) { 
<% 

if (mode. equals ("search") ) { 

// return(rawText.slice(l+(Math.max(Math.max(rawText.search( n > n ) , 
rawText . search ( "<" ) ) , rawText . search ("-" ))))); 

%> 

var i; 

for (i=0; i< rawText. length; i++) { 
if (rawText. charAt(i) != " w ) { 
break; 

) 

} 

rawText=rawText . slice (i) ; 

if ( (rawText. search ("<=") — 0) | | (rawText .search ("<>") — 0) | | 
(rawText. search (">=") —0)) { 
rawText=rawText . slice (2) ; 

} 
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else if ^xawText. search ("<") == 0 ) gd» £ tp^^^qgp^gf agrcpi t|^)Q={^ 5* 
II (rawText. search (">") — 0) ) { 
rawText=rawText . slice (1) ; 

} 



10 



25 



<% 
%> 
} 



} 



return (rawText) ; 



function _checkNumeric () { 
var errorStr= B,f ; 
with (document.numericFields) { 

for (i=0;i<elements. length; i++) { 
15 var chkStr=filterOperators (eval ("document .<%= tableName 

%> . "+eleraents [i] . name+" .value") ) ; 
if (eval("\""+chkStr+ n \" != \"\"") && 
eval ( - i sNaN ( \ " " +chkSt r + n \ " ) " ) ) { 

errorStr+~"\t"+elements [i] .value+"\n"; 

20 } 
} 

} 

return (errorStr) ; 



} 

function checkNuroeric () { 

var er r or St r= checkNuroeric () ; 

if (errorStr "") { 

alert ("The following fields must have numeric values only:\n\n"+ 

errorStr) ; 
return ( false) ; 

} 

else { 

return (true) ; 

} 



function checJcRequired ( ) { 
40 var errorStr= nn ; 

with (document. requiredFields) { 

for (i=0;i<elements. length; i++) { 

var chkStr=" document. <%= tableName %>. "^elements [i] .name; 
if (eval(chkStr+".type=\"select-one\" n ) ) { 
45 //chkStr=chkStr+" . selectedlndex=0 " ; 

chkStr=chkStr+". options [document. <%= tableName %>."+ 
elements [i] .name+" . selectedlndex] .text == \"\" n ; 

} 

50 else { 

chkS tr=chkS tr+ " . value=»=\ " \ " " ; 

} 

//alert (chkStr) ; 
if (eval (chkStr)) { 
55 errorStr+="\t"+elements [ij .value+"\n"; 

} 

} 

) 
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var checkNuWricStr = _checkNumeric ( ) ; g 
if (errorStr !- II checkNumericStr != nn ) { 
var combinedErrorStr » nn ; 
if (errorStr != nw ) { 
5 combinedErrorStr+="The following fields must be entered: \n\n n + 

errorStr+"\n n ; 

) 

if (checkNumericStr != nn ) { 

combinedErrorStr+= n The following fields must have numeric n + 
10 "values only: \n\n n +checkNumericStr; 

} 

alert (combinedErrorStr) ; 
return (false) ; 

} 

15 else { 

return (true) ; 

} 

) 

20 function checkDate (objName) { 

var datefield = objName; 
if (chkdate (objName) false) { 
datefield. select () ; 

alert( n Date is invalid — please try again..."); 
25 datefield. focus () ; 

return false; 

) 

else { 

return true; 

30 ) - 

} 

function chkdate (objName) { 

var strDatestyle - "US W ; //United States date style 
35 //var strDatestyle => n EU"; //European date style 

var strDate; 

var strDateArray; 

var strDay; 

var strMonth; 
40 var strYear; 

var intday; 

var intMonth; 

var intYear; 

var booFound - false; 
45 var datefield = objName; 

var strSeparatorArray = new Array (»-»,» » f n /",".") ; 

var intElementNr; 

var err = 0; 

strDate = filterOperators (datefield. value) ; 
50 // check for invalid chars 

var i; 

for (i=0; i<strDate. length; i++) { 
if (strDate. char At (i) != " n ) { 
break; 

55 } 
} 

strDate=strDate. slice (i) ; 
if (strDate. length < 1) { 
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return t'Hfc; 

} 

for (i=0; i<strDate. length; i++) { 
var chDate * strDate.charAt (i) ; 
5 if (chDate >= '0' && chDate <= 1 9') { 

continue; 

} 

var j; 

var founds ep=*false 
10 for (j=0; j<strSeparator Array. length; j++) { 

if (chDate — strSeparatorArray [ j ] ) { 
f oundSep=*true ; 
continue; 

} 

15 ) 

if (IfoundSep) { 
return false; 

} 

} 

20 for (intElementNr =0; intElementNr < strSeparatorArray . length; 

intElementNr++) { 

if (strDate. indexOf (strSeparatorArray [intElementNr] ) != -1) { 
strDateArray = 

strDate. split (strSeparatorArray [intElementNr] ) ; 
25 if (strDateArray. length !« 3) { 

err =1; 
return false; 

} 

else { 

30 strDay = strDateArray [0] ; 

strMonth = strDateArray [1] ; 
strYear = strDateArray [2] ; 

} 

booFound = true; 

35 } 
} 

if (booFound — false) { 
if (strDate.length>5) { 

strDay = strDate - subs tr (0 r 2); 
40 strMonth - strDate. subs tr (2 r 2); 

strYear «= strDate. substr (4) ; 

} 

else { 

strYear=" n ; 
45 strDay^ 1 "'; 

strMonth«strDate; 

} 

) 

if (strYear. length =1) { 
50 strYear « ' O'+strYear; 

} 

intYear = parselnt (strYear, 10); 
if (isNaN (intYear) ) { 
err = 4; 
55 return false; 

} 

if (strYear. length =2) { 
if (intYear > 50) { 
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strY<5K- = ' 19 1 + strYear; 

} 

else { 

strYear - '20' + strYear; 

5 } 

} 

// OS style 

if (strDatestyle == "US") { 
10 strTemp = strDay; 

strDay = strMonth; 
strMonth = strTemp; 

} 

intday = parselnt (strDay, 10); 
15 if (isNaN (intday) ) { 

err = 2; 
return false; 

) 

intMonth = parselnt (strMonth, 10); 
20 if (isNaN (intMonth)) { 

err = 3; 
return false; 

) 

if (intMonth>12 ) | intMonth<l) { 
25 err = 5; 

return false; 

} 

if ( (intMonth = 1 | | intMonth = 3 | | 
intMonth =-511 intMonth == 7 | | 
30 intMonth == B | | intMonth ==10 | | 

intMonth == 12) && (intday > 31 | 1 intday < 1)) { 
err = 6; 
return false; 

} 

35 if ( (intMonth = 4 | | intMonth == 6 | | 

intMonth = 9 | | intMonth ==11) && 
(intday > 30 | | intday < 1)) { 
err = 7; 
return false; 

40 } 

if (intMonth = 2) { 
if (intday < 1) { 
err = 8; 
return false; 

45 } 

if (LeapYear (intYear) =° true) { 
if (intday > 29) { 
err = 9; 
return false; 

50 ) 
} 

else { 

if (intday > 28) { 
err = 10; 

55 return false; 

} 

) 

} 
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/* 

if (strDatestyle n US") { 

datefield. value = intMonth + + 
intday+ + strYear; 

5 } 

else { 

datefield. value = intday + n / n + 
intMonth-1 + "/" + strYear; 

} 

10 */ 

return true; 

> 

function LeapYear (intYear) { 
15 if (intYear % 100 — 0) { 

if (intYear % 400 — 0) { return true; } 

> 

else { 

if ((intYear % 4) =» 0) { return true; } 

20 ) 

return false; 

} 

function doDateCheck(f rom, to) { 
25 if (Date. parse (from. value) <= Date. parse (to. value) ) { 

alert ("The dates are valid."); 

} 

else { 

if (from. value = | | to. value "") 
30 alert ("Both dates must be entered."); 

else 

alert ("To date must occur after the from date."); 

} 

} 

35 

function holdForPickList (whereTo, selectObject) { 
with (document . forms [1] ) { 

if (selectObject. value !«= "") { 

keyValue.value=selectObject -value; 

40 ) 

do Process . value= 1 drillPickList ■ ; 
stackLevel - value=" + " ; 

re tur nDropDown . value=selectOb j ect . name ; 
tableName . value=whereTo; 
45 submit (); 

) 

) 

function holdFor Detail (whereTo, mast erKeyValue) ( 
50 with (document. forms [1 ] ) { 

key Value . value=masterKeyValue; 
do Process ; value= ' drillDetail 1 ; 
s t ac kLe ve 1 . va lue= " + " ; 
tableName . value=whereTo; 
55 submit ( ) ; 

} 

} 

</SCRIPT> 
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</HEAD> 

<BODY bgcolor="<%= PAGEBKGD %>" 
5 <% 

String f ocusField=request . getParameter ("focusField") ; 
if (f ocusField != null) { 

%> 

onLoad=" j avascript : document . forms [ 1 J . <%= f ocusField 
10 %>. focus () /javascript: if (document, forms [1] .<%=» focusField %>.type 

!= 'select-one') { document . forms [1] .<%= focusField %>. select () 
} /javascript : history . forward (1 ) ; " 

<% 

} 

15 else { 

%> 

onLoad=" javascript : history. forward (1) ; " 

<% 

} 

20 %> 

> 

<%8 include file=" common / GlobalHeaderHTML . jsp" %> 
<% 

25 sfrat = 

con . createStatement (ResultSet . TYPE_SCROLL_INSENSITIVE, ResultSet . CONC 
UR_READ_ONLY) ; 
sf = sfmt.executeQuery ( 
"SELECT n + 

30 " DECODE (MAX (ABS (Can_Browse_Flag) ) , NULL, 0, 

MAX (ABS (Can_Browse_Flag) ) ) AS Can_Browse_Flag, "+ 

DECODE (MAX (ABS<Can_Edit_Flag)) / NULL, 0, 
MAX (ABS (Can_Edit_Flag) ) ) AS Can_Edit_Flag, "+ 

DECODE (MAX (ABS (Can_Add_Flag) ) , NULL, 0 , 
35 MAX (ABS (Can_Add_Flag) ) ) AS Can_Add_Flag " + 

"FROM "+ 

// OT PEOPLE, STAFF, USERS, SECURITY_GROUP_USER, 

SECURITY_GROUP_TABLE, SECURITY_TABLE " + 

" PEOPLE, USERS, SECURITY_GROUP_USER, SECURITY_GROUP_TABLE, 

40 SECURI TY_TABLE n + 

"WHERE " + 

" PEOPLE. Act iveJFlag <> 0 AND "+ 

// n PEOPLE . People_Key = STAFF. People_Key AND "+ 

// " STAFF . Staff _Key - USERS . Staff _Key AND "+ 

45 " PEOPLE . People_Key = USERS . PeopleJKey AND "+ 

n USERS. Dserajey = SECURITY_GROUP_USER.Users_Key AND " + 

" SECURITY_GROUP_USER.Security_Group_Key = 

SECURITYJ3ROUPJTABLE . Security_Group_Key AND " + 
" SECURITY_GROUP_TABLE.Security_Table_Key =* 

50 SECURITY_TABLE.Security_Table_Key AND "+ 

" SECURITY_TABLE.Security_Table_Name = » "+tableName+" ' AND 

"+ 

" SECURITY_GROUP_USER.Users_Key = "+usersKey 

); 

55 sf.next(); 

canBrowseFlag = sf .getBoolean (1) ; 
canEditFlag * sf .getBoolean (2) ; 
canAddFlag = sf. getBoolean (3) ; 
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boolean reiSSantFlag; 
String modePhrase = null; 
if (mode. equals ("add") ) { 

relevant Flag = canAddFlag; 
5 modePhrase = "ADD TO"; 

) 

else if (mode. equals ("search") ) { 
relevantFlag = canBrowseFlag; 
modePhrase = "BROWSE"; 

10 } 

else { 

relevantFlag = canEditFlag; 
modePhrase « "EDIT"; 

} 

15 if ('relevantFlag) { 

throw new ServletException ("<p><br><br><br>"+ 

"Snbsp; snbsp; Snbsp;   Snbsp; Snbsp; Snbsp; Snbsp; snbsp; Snbsp; S 
nbsp; Snbsp; "+ 

20 ' "</b>YOU ARE <b>N0T AUTHORIZE D</b> TO "+modePhrase+" THE 

<b>" +TableDescriptorDisplay . getDisplay Label ( tableName , 
TableDescriptorDisplay .AllUpper) +"</b> TABLE<bxbr>°+ 

"  Snbsp; Snbsp; Snbsp; Snbsp; Snbsp; Snbsp; Snbsp; snbsp; Snbsp; S 
25 nbsp; snbsp; Snbsp; snbsp;") ; 

} 

%> 
<%= 

30 TableDescriptorDisplay . displays tack ( (LinkedList ) 

session . getAttribute ( "sessionStack" ) , unqStr) 

%> 

<hr> 

< TABLE width="10Q%" cellpadding="0" cellspacing="0"> 
35 <tr valign="bottom" aligns" right "> 

<% 

String titlePrefix = null; 
if (mode. equals ("add") ) { 

titlePrefix - "ADDING TO "; 

40 } 

else if (mode. equals ("search") ) { 
titlePrefix - "SEARCHING "; 

> 

else { 

45 titlePrefix - "EDITING "; 

> 

%> 

<TD valign="bottom"Xfont face="ARIAL, HELVETICA" size="4 "><%=» 
50 titlePrefix %><b> 

<%= 

TableDescriptorDisplay . getDisplayLabel (tableName, TableDescript 

orDisplay.AllOpper) %></b> 

<! — img s re- "images /logo- width.gif " — > 
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<% 



StackElement se= (StackElement ) 1 . getLast ( ) ; 
StackElement pe=null; 
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if (se.gettfSSfcerColumn () != null) { 
pe- (StackElement ) 1 . get (1 . size ( ) -2 ) ; 



%> 



<brxfont size="4">FOR 
5 <b><%= 

TableDescriptorDisplay. getDisplayLabel (pe.getTableName () , 
TableDescriptorDisplay . AllOpper) %><%= 

(TableDescriptorDisplay . getDisplayLabel (pe . getTableName { ) , Tabl 
eDescriptorDisplay.AHUpper) .equals ("CUSTOM VIEW PROTOTYPE_3") 

10 }| 

TableDescriptorDisplay .getDisplayLabel (pe.getTableName () , Table 
DescriptorDisplay.AllUpper) . equals ( "CUSTOM VIEW PROTOTYPE^") 
| | TableDescriptorDisplay. getDisplayLabel (pe.getTableName () , 
TableDescriptorDisplay. AllUpper) . equals ("CUSTOM VIEW 

15 PROTOTYPEJL") )?"":" #"+pe . getCurrentKey () %></fontx/b> 

<img s r c= n images /logo-width . gi f " > 



<% 



> 



%> 

20 </fontX/TD> 
</TR> 
</TABLE> 

<hr> 

25 <FORM METHOD="POST" NAME="<%= tableName %>" ACTION="<%= URIPath %> 

/DoAddEdit . j sp"> 

<TABLE width="100%" cellpadding="0" cellspacings" 0"> 

<tr valign= "middle" align=" right "><TD valign="top" align="left" 
WIDTH=100% ROWSPAN=3> 
30 <%= 

TableDescriptorDisplay .displayNavbar (tableName, unqStr , canBrows 
eFlag, canAddFlag, (se.getSearchString () !=» null)) 

%> 

35 <% 

String buttonLabel = null; 
if (mode. equals ("add") ) { 

buttonLabel = "Add Record to "; 

doProcess => "insert"; 

40 } 

else if (mode. equals ("search") ) { 

buttonLabel - "Search for Records in "; 
doProcess = " filter" ; 

) 

45 else { 

buttonLabel = "Update Record in "; 
doProcess = "update"; 

} 

buttonLabel += TableDescriptorDisplay . getFormattedLabel (tableName) ; 

50 %> 

</TDXTD valign="middle" aligns" right" > 

<INPUT TYPE="SUBMIT" VALUE="<%= buttonLabel %>" 
<%= (mode. equals ("search") ?"onClick=\" return 
55 checkNumeric();\"":"onClick=\"return checkRequired () ; \"") %> 

> 

<! — %= (mode. equals ("search") ?"": "onClick=\ "return 
checkRequired () ;\"") % ~ > 
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<% 



<% 

50 %> 

55 <% 
%> 



</TDXTD valign="middle" align="right"> 

<img sr c=" images /logo-width. gif"> 
</TDX/TR> 

if (mode. equals ("search") || mode. equals ("add") ) { 



<tr valign= n top n align="right" height=l><TD valign="top" 
align="left"> 
10 </TDXTD></TD></TR> 

<tr valign="top" align="right"xTD valign="top" align="left"> 

<% 

Balloon b=null; 
if (mode. equals ("search") ) { 
15 b=bh.getNavBalloon ("expressEditCheckbox") ; 

%> 

<input name="expressEdit" type=" checkbox" <% if (b!=null) { %> 
onMouseOver="setHang( , <%= b.getlDO %>', event, this, 'navLink'); 
return true;" onMous eOut=" clear Hang () ; return true;" 
20 onClick="clearHang() ; return true;" <% } %> value="Yes" <%= 

( (session. getAttribute ("expressEdit") != null) && (((String) 
session. getAttribute ("expressEdit") ) .equals ("Yes") ) ) ?"CHECKED n 
: n " %» 

<% 

25 if (b!=null) { 

%> 

<A HREF="" CLASS=*" not Decorated" onMouseOver="setHang ( '<%= 
b.getlDO %>' , event, this, 'navLink' ) ; return true;" 
onMouseOut="clearHang ( ) ; return true ; " onClick="clearHang ( ) ; 
30 return false; "> 

<% 

%> 

35 

<% 

40 %> 



} 

Enable 'express edit»<% if (b!=null) { %></A><% ) %> 



} 

else if (mode .equals ("add") ) { 

b=bh . getNavBalloon ( "powerAddCheckbox" ) ; 



<input name="powerAdd" type=" checkbox" <% if (b!=null) { %> 
onMouseOver="setHang( , <%= b.getlDO %>*, event, this, 'navLink'); 
return true;" onMouseOut="clearHang () ; return true;" 
onClick="clearHang() ; return true;" <% ) %> value="Yes" <%= 
45 ( (request. getParameter ("power Add") != null) && 

( (request, get Parameter ("power Add") ) .equals ("Yes") ) ) ?" CHECKED" : 
"" %» 



if (b!=null) { 

<A HREF= nn CLASS="notDecorated" onMouseOver=" set Hang ( ' <%= 
b.getlDO %>' ,event, this, 'navLink' ) ; return true;" 
onMouseOut="clearHang () ; return true;" onClick»"clearHang () ; 
return false; "> 

} 

Enable 'power add»<% if (b»=null) { %></A><% ) %> 
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<% 

} 

%> 

</TD><TD valign="top" align<= n right "> 
<img src= n images/ logo~width.gif n > 
</TDX/TR> 

<% 

} 

%> 

</TABLE> 
<br> 

<TABLE border="l" width= ,r 100%" id="dataTable"> 

<% 

int columnNumber=l; 
int htmlElementNum=l; 
StringBuffer requiredFieldsForm= 

new StringBuffer ("<FORM name=\"requiredFields\">\n") ; 
StringBuffer numericFieldsForm** 

new StringBuffer ("<FORM name=\"numericFields\">\n M ) ; 

StringBuffer tableHelp = new StringBuffer () ; 

while (displayFieldsEnumeration.hasMoreElements () ) { 

String columnNaroe= (String) display FieldsEnumerat ion. nextElement () 

String f ormattedColumnName= 

ddtd . getFormattedField (columnNumber-1) ; 

if (( !mode. equals ("search") ) && 

(columnName . equals ( "ENTEREDJ3 Y__USERS_KE Y n ) | | 
columnName .equals ("ENTRY_DATE") | | 
columnName . equals (" MODI FIE D_BY_USERS_KEY" ) I | 
columnName. equals ( n LAST_MODIFIED_DATE n ) ) ) 

{ 

columnNumber++ ; 
continue; 

} 

String value=""; 

value=request . getParameter (ddtd . getDatabase ( ) 

+" "+ddtd.getTable () +" n +columnName) ; 

if (value =* null) { 

if (tableVals.sizeO > 0) { 

value= (String) tableVals .get (ddtd. getDatabase () 

+" "+ddtd.getTable ( ) +" w +columnName) ; 

) 

else if (mode. equals ("edit") ) { 

value=rs . getString (columnNumber++) ; 

} 

} 

if (value == null) { 
value=""; 

} 

String displayLabel = 

TableDescriptorDisplay . getDisplayLabelEdit (ddtd, 
columnName, 

"document . forms [1] . "+ddtd. getDatabase () +" "+ 

ddtd . getTable () +" w +columnName, l,unqStr,usersKey, con) ; 

int begTag^displayLabel . indexOf ( "<b>" ) ; 
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int endOfl^displayLabel . indexOf ( W </$>TI£;1 
String trimmedDisplayLabel=displayLabel; 
if (begTag >*=0 && endTag >= 0) { 
t r immedDi spl ayLabe 1= 
5 trimmedDisplayLabel . substring (begTag+3 , endTag) ; 

} 

ResultSetMetaData rsmd=ddtd.getMetaData () ; 
try { 

if ( (rsmd.isNullable(ddtd.findColiaiimName(coluiiinNarae)) ! = 
10 ResultSetMetaData . columnNullable) && 

ddtd.getKeyField() ! = null && 
!ddtd.getKeyField() .equals (columnName) && 
! columnName . endsWith ( "_FLAG M ) ) 

{ 

15 requiredFieldsForm . append ( " \t <INPDT type=\ "hidden \ n "+ 

"name=>\ n,, +ddtd.getDatabase () +" "+ddtd.getTable () + 

" n +columnName+"\" value=\""+ 

trimmedDisplayLabel+"\">\n") ; 



20 



} 



if 

(rsmd. getColumnTypeName (ddtd. f indColumnName (columnName) ) . equal 
s ( "NUMBER" ) && ( (ddtd.getKeyField() != null && 
ddtd.getKeyField() .equals (columnName) ) | | 
25 ! (columnName . endsWith ( "_KEY" ) | | 

columnName .endsWith ("_FI»AG") ) ) ) { 

numericFieldsForm. append ("\t<INPUT type~\"hidden\" " + 

"name-\ n "+ddtd. get Database () +" "+ddtd.getTable () + 

" n +columnName+ n \" value=\""+ 

30 trimmedDisplayLabel+"\">\n n ) ; 

} 

) 

catch (SQLException sqle) { 
sqle . printStackTrace ( ) ; 

35 } 
%> 

<TRXTD bgcolor= M <%= DARKCELL %>" align=*"right" valign="center"> 
<font size="2"> 
<nobr> 
40 <%= 

displayLabel 

%>: 

</nobr> 
</font> 

45 </TDXTD bgcolor»"<%= MIDLCELL %>" width="100%"> 

<%= 

TableDescriptorDisplay . getDisplayFieldEdit (ddtd, 

// columnName, (re turnHash != null) ?" return" :mode, value, 
(LinkedList) session. getAttribute ("sessionStack") ) 
50 columnName, mode, value, 1, con) 

// (LinkedList) session .getAttribute ("sessionStack") ) 

%> 

<% 

Balloon tb = bh.getTableBalloon (ddtd.getTable () . toOpperCase ( ) 
55 + n . "+columnName . toUpperCase ( ) ) ; 

if (tb !« null) { 

tableHelp . append ( "makeTableBalloon ( \ " " +tb . get ID ( ) +" \ " , \ " " + 
tb.getMsg()+"\");\n"); 
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%> 
<% 



} 

</TDX/TR> 



5 } 

{ (StackElement)l.get(l.size()-l) ) .setFormValues (new Hashtable() ) ; 
/* 

if (con != null) { 

editResultSet . close ( ) ; 
10 stmt, close () ; 

//connMgr. f reeConnection (ddtd.getDBConnection () , con) / 

} 

*/ 

MasterDetail md=MasterDetail. get Instance (dbName, dbConnNaiae) ; 
15 Vector detailTables=md.getDetailTables (tableName) ; 

if (detailTables != null && mode. equals ("edit") ) { 
Ob j ect [ ] detailTablesAry = detailTables . toArray ( ) ; 
//Arrays . sort (detailTablesAry) ; 
for (int i=0; i<detailTablesAry. length; i++) { 
20 String detailTablelnf o= (String) detailTablesAry [i] ; 

int do t=detailTableInf o . indexOf ("."); 
String detailTable»detailTableInfo. substring (0, dot) ; 
String detailTableFKey=detailTableInf o . substring (dot+1 ) ; 
String mdQStr«" SELECT COUNT (*) FROM n +detailTable+ 
25 n WHERE w +detailTableFKey+ w ="+ 

request . get Parameter ( " keyValue " ) ; 

if (Debug. areDebugging) { 

Debug. doLog("mdQStr: "+mdQStr, Debug. INFO) ; 

30 } 

//Statement masterStmt = masterCon.createStatement () ; 
rs » stmt . executeQuery (mdQStr) ; 
r s . next ( ) ; 

35 int numEntries=Integer .parselnt (rs .getString (1) ) ; 

String entryStr= (numEntries — 1) ? n en try" : "entries"; 

%> 

<TRXTD align="right" bgcolor="<%= DARKCELL %>"> 
<font size="2"> 

40 <» — A HREF="<%« ORIPath %>/DoAddEdit . j sp?tableName=<%= 

detailTable %>&keyField=<%= detailTableFKey %>&keyVal=<%= 
request . getParameter ( "keyValue") %>&stackLevel=%2B&doProcess= 
drillDetail&<%= 

TableDescriptorDisplay.getNoCache (TableDescriptorDisplay . ForUR 
45 L) %>"—> 

<% 

sf » sfmt . executeQuery ( 
"SELECT "+ 

" DECODE (MAX (ABS (Can_Browse_Flag) ) , NULL, 0, 

50 MAX(ABS(Can_Browse_Flag) ) ) AS Can_Browse_Flag "+ 

"FROM "+ 

// " PEOPLE , STAFF, USERS, 

SECURITY_GROUP_USER, SECURITY_GROUP_TABLE, SECURITYJTABLE 
n + 

55 - PEOPLE, USERS, SECURITYJ3ROUPJJSER, 

SECURITY_GROUP_TABLE, S ECURI T Y_T ABLE " + 
"WHERE "+ 

PEOPLE. Act ive_Flag <> 0 AND "+ 

58 



WO 02/059793 PCT/US01/42867 

STAFF. People_Key AND " + 

// " STAFF. Staff _Key ~ 

USERS . Staf f_Key AND n + 

" PEOPLE. People Key ■ USERS . People_Key AND "+ 

" USERS. UsersJKey = SECURITY_GROUP_USER.Users_Key AND 

n + 

" SECURITY_GROUP_USER.Security_Group_Key - 

SECURITYJ3ROUP_TABLE.Security_Group_Key AND" + 

" SECURITY_GROUP_TABLE.Security_Table_Key = 

SECURITY_TABLE.Security_Table_Key AND "+ 

" SECURITY_TABLE.Security_Table_Name = 

,n +detailTable+ n, AND w + 

" SECURITY_GROUP_USER.Users_Key = "+usersKey . 

) ; 

sf.next{); 

if (sf .getBoolean(l) ) { 



%> 

<% 

%> 
<% 
%> 



<% 



%> 



<A HREF«"javascript:holdForDetail( , <%= detailTable %>»,<%= 

request. getParameter ("keyValue") %>,<%= unqStr %>) "> 

<%= TableDescriptorDisplay.getForraattedLabel (detailTable) %> 

</A>: 

} 

else { 

<%« TableDescriptorDisplay.getFormattedLabel (detailTable) %>: 
} 

</font> 

</TDXTD bgcolor="<%= MIDLCELL %>"> 
<nobr> 

<%= numEntries %> <%= entryStr %></nobr> 
</TDX/TR> 

//masterRs. close () ; 
//masterStmt. close () ; 

//connMgr . freeConnection (dbConnName,masterCon) ; 
) 



} 



</ TABLE > 
<hr> 

<! — INPUT TYPE— " SUBMI T " VALUE="<%= buttonLabel %>" 

onClick="document. forms [1] .doProcess .value=» update' /return true;" — > 
<! — INPUT TYPE= " SUBMI T " VALUE="<%= buttonLabel %>" — > 

<INPUT type=" hidden" name="doProcess" value="<%= doProcess %>"> 

<INPUT type="hidden" narae="holdDoProcess n value=""> 

<INPUT type=»" hidden" name= M tableName" value=""> 

<INPUT type="hidden" name= n key Value" value= n "> 

<INPUT type- n hidden" name= n stackLevel n value="@"> 

<INPUT type="hidden" name= n returnDropDown" value=""> 

<INPUT type="hidden" name="unq" value="<%~ unqStr %>"> 

<! — %= 

TableDescriptorDisplay . getNoCache (TableDescriptorDisplay . ForForm) % 
— > 
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<%= 

requiredFieldsForm . toString ( ) 

5 %> 

</FORM> 

<%= 

numericFieldsForra . toString ( ) 

10 %> 

</FORM> 

< ! — j sp: include page="/ common /GlobalFooter . j sp" f lush=" true" — > 
<! — /jsp: include — > \ 
<SCRIPT> 
15 setTableCoords ( ) ; 

setupNavHelp () ; 
<%= tableHelp.toStringO %> 
</SCRIPT> 
</BODY> 
20 </HTML> 
<% 

} 

catch (SQLException sqle) { 
sqle. printStackTr ace () ; 
25 throw sqle; 

} 

finally { 
try { 

if (sf null) sf. close () ; 
30 if (rs != null) rs. close () ; 

if (sfmt != null) sfmt. close () ; 
if (stmt != null) stmt. close () ; 
if (con != null) con. close () ; 

} 

35 catch (SQLException sqle) { 

sqle.printStackTrace () ; 

) 

) 

%> 

40 <%@ include f ile="common/GlobalFooter . jsp w %> 
Schemalive/BalloonHelp . j sp 

<%! 

45 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

%> 

<%@ page import= n HTMLUtils . *" %> 
50 <%@ page import =» " java.util. *" %> 

<HTML> 

<HEAD> 

<TITLE>BalloonHelp</XITLE> 
55 </HEAD> 

<B0DY bgc ol o r= n # FFFFFF " > 
<% 
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//BalloonHelp.^Rrreshlnstance (out) ; 
String f unction=request .getParameter ( "f unction"") ; 
if (function— null) { 

%> 

<A HREF="/Schemalive/BalloonHelp. jsp?function=rebuild">Rebuild 
Balloonflelp</A> 

<h3>Navigation BalloonHelp</h3> 
<TABLE B0RDER="1"> 

<TRXTH align="left n >Help Object Name</THXTH align« n left">PopUp 

Text</THX/TR> 

<% 

BalloonBelp bh = BalloonHelp.getlnstance () ; 
Enumeration nbi ■» bh.getNavBal loon IDs () ; 
Enumeration tbi = bh.getTableBalloonlDs () ; 
while (nbi.hasMoreElements () ) { 

String key = (String) nbi .nextElement () ; 

Balloon b = bh. getNavBal loon (key) ; 

%> 

<TR><TD align="left"x%= key %></TDXTD align="lef t n x%= 
showHTML(b.getMsg() ) %></TDX/TR> 

<% 

) 

%> 

</TABLE> 

<h3>Table BalloonHelp</h3> 
<TABLE border="l n > 

<TRXTH align= rt left n >TABLE.Column</THXTH align="lef t">PopUp 

Text</THX/TR> 

<% 

while (tbi . hasMoreElements ( ) ) { 

String key = (String) tbi. nextElement () ; 
Balloon b = bh.getTableBalloon(key) ; 

%> 

<TRXTD align="left"X%= key %x/TDXTD align= M lef t"x%= 
showHTML (b . getMsg ( ) ) %></TDX/TR> 

<% 

} 

%> 

</TABLE> 

<% 

} 

else if (f unction. equals ("rebuild") ) { 
BalloonHelp.ref reshlnstance (out) ; 

%> 

<P> 

<A HREF="/Schemalive/BalloonHelp. jsp">Browse BalloonHelp</A> 

<% 

) 

%> 

</BODY> 
</HTML> 
<%! 

public String showHTML (String msg) { 

StringBuf f er sb = new StringBuf f er (msg) ; 
int tagLoc^-l; 

while (0 < (tagLoc=sb.toString() .indexOf ("<")) ) { 
sb.deleteCharAt (tagLoc) ; 
sb. insert (tagLoc, "< ") ; 
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} w 
while (0 < ( tagLoc=sb . t oS tr ing () .indexdff*^ ")")) 

sb - deleteCharAt (tagLoc) ; 

sb. insert (tagLoc, "> ") ; 

5 } 

return ( sb . t oS tr ing ( ) ) ; 

} 

%> 

10 Schemalive/Browse . j sp 

<%! 

// $Revision: 2.5 $ 

// $Date: 2001/10/30 08:26:33 $ 

15 %> 

<%e page import-"dbUtils. *" %> 
<%@ page import="HTMLOtils . *" %> 
<%e page import="sessionUtils.* M %> 
20 <%@ page import^" java. sql . *" %> 
<%e page import="java.util.*" %> 
<%@ page impor t=" common. *" %> 

<%e page autoFlush=" false" buffer="3000k" errorPage=" /Error 500 .jsp" 
25 session="true"%> 

<%! public static final String vers ion_Browse_ jsp =» "$Revision: 2.5 $"; %> 

<HTML> 
30 <HEAD> 

<%@ include file="common/EntryPoints. jsp" %> 

<%@ include file="common/GlobalHeaderVARS. jsp" %> 

<%e include f ile=" common /Empty Par amCheck. jsp" %> 

35 

<% 

response „ setHeader ("pragma" , "no- cache") ; 
response. setHeader ("Expires", 

new java.util. Date (new java.util .Date () . get Time () -100) .toString () ) ; 
40 String unqStr= 

TableDescfiptorDisplay.getNoCache(TableDescriptorDisplay.ForJavaScri 
pt) ; 

if (request. getParameter ("unq") ! — null && 
45 request. getParameter ("unq") .equals ( (String) 

ses sion . getAttribute ( "unq" ) ) ) 

{ 

if (Debug. areDebugging) { 

Debug . doLog ( "Browse unq matched ! " , Debug . INFO) ; 

50 ) 

session . setAttribute ( "unq" , unqStr) ; 

} 

else if (request .getParameter ("stackLevel") != null && 
request . getParameter ( "stackLevel " ) . equals ( " 0 " ) ) 

55 { 

if (Debug. areDebugging) { 

Debug. doLog ("Chose to restart from header" , Debug . INFO) ; 

) 
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session . setSIPtribute ( "unq" , unqStr) ; 

} 

else if (request. getParameter ( n unq n ) != null && 
session. get Attribute ("unq") == null) 

5 { 

// *THIS* is a (real) expired- session error! ! ! 

response . sendRedirect ("/Schemalive/ExpiredSession. jsp") ; 

return; 

} 

10 else { 

/* 

if (Debug. areDebugging) { 

Debug. doLog ("AddEdit Form unq did not match" , Debug . INFO) ; 

) 

15 */ 

// *THIS* is actually an out-of -sequence error. . . 
response. sendRedirect ("/Schemalive/OutOf Sequence. jsp") ; 
return; 

} 

20 Connection con^null; 

Statement stmt=null; 

ResultSet rs=null; 

boolean canBrowseFlag; 

boolean canEditFlag; 
25 boolean canAddFlag; 

boolean BrowseTarget2Flag=true; 

boolean BrowseTargetlFlag=true; 

boolean EditTarget2Flag=true; 

boolean EditTargetlFlag^true; 
30 boolean loopCellFlag=true; 

try { 

con=SQLOtil . makeConnection ( ) ; 

%> 

35 

<TITLE>Schemalive</TITLE> 

<%@ include f ile= w common /GlobalHeader Javascript .jsp" %> 
</HEAD> 

40 

<% 

int sequence=ManageSession.updateSequence (session) ; 

45 // session. setAt tribute ("powerAdd", "No"); 

%> 

<!— , BODY bgcolor="<%=* PAGEBKGD %>" 

onLoad=" location. href - 9 /Schemalive/CheckSequence. jsp?sequence=<%= sequence 
%>&<%= TableDescriptorDisplay . getNoCache (TableDescriptorDi splay . ForURL) 
50 %>•;" — > 

<BODY bgcolor="<%= PAGEBKGD %>" onLoad= n history. forward (1) ; "> 

<%@ include f ile«" common /GlobalHeaderHTML. jsp" %> 
<% 

55 if (request. getParameter ("newPageSize") !=* null) { 

session . setAttribute ( "pageSize" , 
request .getParameter ("newPageSize") ) ; 

} 
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String tabl^Rame^request. get Parameter ^¥*«l|eljamj 
if (tableName — null) { 

// entryPoints is defined in comraon/EntryPoints . jsp 
for (int i=0;i<entryPoints .length; i++) { 
5 if (Arrays. binarySearch (headerTableList, entryPoints [i] ) >= 0) 

{ 

tableName=entryPoints [i] ; 
break; 

) 

10 } 

if (tableName — null) { 

if (headerTableList. length > 0) { 
tableName=headerTableList [0] ; 

} 

15 } 
} 

String doProcess^request. get Parameter ("doProcess") ; 
if (doProcess null) { 
doProcess="new" ; 

20 ) 

String s tackLevel=request . getParameter ( " stackLevel " ) ; 
if (stackLevel = null) { 
stackLevel = "8"; 

} 

25 if (usersKey ~ null | | tableName == null) { 

throw new ServletException ( w <pXbr><br><br> n + 

"      Snbsp;     finbsp;     finbsp; & 
nbsp; "+ 

30 "</b>YOU ARE <b>NOT AUTHORIZED</b> TO OSE THIS SYSTEM<bXbr>" + 

"    Snbsp;           snbsp; finbsp; & 
nbsp;   Snbsp;   " 

); 

35 ) 

stmt = 

con.createStatement (ResultSet .TYPE_SCROLL_INSENSITIVE,ResultSet .CONC 
UR_READ_ONLY) ; 
40 rs « stmt.executeQuery ( 

"SELECT "+ 

" DECODE (MAX (ABS (Can_Browse_Flag) ) , NULL, 0, 
MAX (ABS (Can_Browse__Flag) ) ) AS Can_Browse_Flag, " + 
n DECODE (MAX (ABS (Can_Edit_Flag) ) , NULL, 0, 
45 MAX (ABS (Can_Edit_Flag) ) ) AS Can_Edit_Flag, "+ 

" DECODE (MAX (ABS (Can_AddJ?lag) ) , NULL, 0, 
MAX(ABS(Can_Add_Flag) ) ) AS Can_Add_Flag "+ 
"FROM "+ 

// " PEOPLE, STAFF, USERS , SECURITY_GROUP_USER, 
50 SECURITY_GROUP_TABLE, SECURITYJTABLE B + 

" PEOPLE, USERS, SECURITY_GROUP_USER, SECURITY_GROUP__TABLE, 
SECURITY JTABLE "+ 
"WHERE n + 

" PEOPLE. Active_Flag <> 0 AND "+ 

55 // PEOPLE. People_Key = STAFF. People_Key AND "+ 

// " STAFF. St aff_Key = USERS . Staff _Key AND "+ 

PEOPLE . People_Key « USERS. People_Key AND "+ 
USERS. User s_Key = SECURITY_GROUP_USER.UsersJKey AND "+ 
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n SECURWi_GROUP_USER. Security^Grcp^Q^ly^ 
SECtJRITY_GROUP_TABLE.Security_Group_Key AND "+ 
" SECURITY J3ROUP_TABLE.Security_Table_Key = 
SECURITY_TABLE.Security_Table_Key AND " + 
5 // " SECURITYJTABLE . Security_Table_Name - 

' ,, +request.getParameter( ,, tableName ,, )+ ^, AND "+ 

n SECURITY_TABLE . Security_Table_Name = 1 "+tableName+ n 1 AND "+. 
" SECURITY_GROUP_USER.Users_Key = M +usersKey 

) ; 

10 rs . next ( ) ; 

canBrowseFlag = rs .getBoolean (1) ; 

canEditFlag = rs -getBoolean (2 ) ; 

canAddFlag « rs. getBoolean (3) ; 

if ( ! canBrowseFlag) { 
15 throw new ServletException ("<p><br><br><br>"+ 

"finbsp;   finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; snbsp;   & 
nbsp; finbsp; " + 

// "</b>YOU ARE <b>NOT AUTHORIZED</b> TO BROWSE THE 

20 <b>"+TableDescriptorDisplay.getDisplayLabel (request .get Paramet 

er ("tableName") , TableDescriptor Display .AllUpper) +"</b> 
TABLE<b><br>"+ 

"</b>YOU ARE <b>NOT AUTHORIZED</b> TO BROWSE THE 
<b>"+TableDescriptorDisplay.getDisplayLabel (tableName, 
25 TableDescriptorDisplay .AllOpper) +"</b> TABLE<b><br>"+ 

"finbsp;             Snbsp; finbsp;   & 
nbsp; Snbsp; finbsp; finbsp; H ) ; 



30 



} 



// if 

(request .getPararaeter ("tableName") .equals ("CUSTOM_VIEW_PROTOTYPEJL") 
) { 

if (tableName.equals( n CUSTOM_VIEW_PROTOTYPE_l")) { 
35 rs = stmt . executeQuery ( 

"SELECT "+ 

" SECURI TY_TABLE . Securit y_Table_Name , " + 
" DECODE (MAX (ABS (Can_Browse_Flag) ) , NULL, 0, 

MAX(ABS(Can_Browse_Flag) ) ) AS Can_Browse_Flag, n + 
40 DECODE (MAX (ABS (Can_Edit_Flag) ) , NULL, 0, 

MAX(ABS(Can_Edit_Flag)) ) AS Can_Edit_Flag "+ 
"FROM "+ 

// ■ PEOPLE, STAFF, USERS, SECURI TY_GROUP_USER, 

SECURI TY_GROUP__T ABLE , SECURITY_TABLE "+ 
45 " PEOPLE, USERS, SECURITY_GROUP_USER, 

SECURI TY_GROUP_TABLE , SECURI TY_T ABLE " + 
"WHERE "+ 

" PEOPLE. Ac tive_Flag <> 0 AND "+ 

// ■ PEOPLE. People_Key - STAFF. People_Key 

50 AND "+ 

// « STAFF. Staff _Key - USERS , Staff _Key AND 

"+ 

" PEOPLE . People_Key = USERS . Pe op le_ Key AND " + 

" USERS . Users_Key = SECURI TY_GROUP_USER . Us ers_Key AND " + 

55 " SECURITY_GROUP_USER.Security_Group_Key = 

SECURITY_GROUP_TABLE.Security_Group_Key AND " + 
" SECURITY_GROUP_TABLE.Security_Table_Key = 

SECURITYJTABLE . Security_Table_Key AND "+ 
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SECURITYJTABLE . Security JS^Lf^afol JUS 
( » DRILL_TARGET_2 ■ , ■ EDIT_TARGET_2 ■ , 9 DRILL_TARGET_1 1 , 
'EDITjrARGET_l» ) AND "+ 

SECURITY_GROUP_USER.Users_Key - "+usersKey+ n "+ 
"GROUP BY "+ 

w SECURITY_TABLE.Security_Table_Naitie "+ 
"ORDER BY 1 ASC" 

); 

rs . next ( ) ; 

EditTarget2Flag «• rs. getBoolean (3) ; 
rs.next () ; 

BrowseTarget2Flag = rs .getBoolean (2) ; 
rs . next ( ) ; 

EditTargetlFlag = rs . getBoolean (3) ; 
rs.next () ; 

BrowseTargetlFlag = rs -getBoolean (2) ; 

} 

%> 

<! — %8 taglib uri="view n pref ix= n view M % — > 

<%@ taglib uri="/WEB-INF/taglib/stack. tld" pref ix^sessionUtils" %> 



// String tableName«request . get Parameter ("tableName") ; 
String keyField=request . getParameter ( " keyField" ) ; 
String keyVal=request . getParameter ( n keyVal" ) ; 
// String doProcess=request . getParameter ("doProcess") ; 
// String stackLevel=request .getParameter ("stackLevel") ; 
if (stackLevel == null) { stackLevel="@"; } 
if {(String) session. getAttribute ("returnTable") != null) { 
session . removeAttribute ("returnTable" ) ; 

} 

if (tableName == null) { 

tableName=entryPoints [0] ; 

} 

String origTableName=null; 
tableName- tableName .toUpperCase () ; 

// if (dd.getDataDictionaryTD(tableName+"_VIEW") null) 

if (dd.getDataDictionaryTD(ViewGenerator.getViewName (tableName) ) = 
null) { 

origTableName=new String (tableName) ; 
tableName=ViewGenerator .getViewName (tableName) ; 

} 

else { 

origTableName=t ableName ; 

} 

<! — viewtsetVars defaultEntryPoint="<%= entryPoints [0] %>" dbName="<%= 
dbName %>" dbConn="<%= dbConnName %>" — > 

<sessionUtils: stack tableName= w <%= 1 origTableName %> n mode=" browse" 
stackLevel="<%= stackLevel %>" database="<%= dbName %>" dbConn= n <%= 
dbConnName %>"> 
<% 

// Stacklnfo: %= stacklnfo % 
%> 

</sessionUtils : stack> 
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<%= 

TableDescriptorDisplay . displayStack ( (LinkedList ) 
session . getAttribute ( " sessionStack" ) , unqStr) 

%> 

<hr> 

<TABLE width= ,, 100% ,, cellpadding="0" cellspacing= ,, 0"> 
<tr valign="top" aligns" right "><td> 

<font f ace="ARIAL, HELVETICA" size="4">BROWSING<b> 
<%= 

TableDescriptorDisplay. getDisplayLabel (origTableName, TableDes crip 

tor Display. AllUpper) %></b> 

<! — img src="images/logo-width.gif " — > 

LinkedList sessionStack= (LinkedList) 
session. getAttribute ("sessionStack") ; 

StackElement se= (StackElement) sessionStack . getLast ( ) ; 

//if (doProcess != null && doProcess. equals ("fullList") ) { 
if (doProcess. equals ("fullList") ) { 
/* 

String f ilterString= (String) session . getAttribute (origTableNarae) ; 

if (filterString != null) { 

session. removeAt tribute (origTableName) ; 

} 

*/ 

se . setSearchString (null) ; 

se . setSearchParams (new Hashtable ( ) ) ; 

} 

/* 

else if ( fkeyField. equals ("null") ) { 

session. setAttribute (origTableName, "A. n +keyField+"="+keyVal) ; 
> 

*/ 

//String filterTarget = (String) 
session. getAttribute ("filterTarget") ; 

//if (filterTarget != null && filterTarget .equals (origTableName) ) { 
String f ilterStrincpnull; 

//if ( ( filters tring= (String) session. getAttribute (origTableName) ) ! = 
null) { 

StackElement pe-null; 

if (se.getMasterColumnO != null) { 

pe= (StackElement) sessionStack. get (sessionStack. size () -2) ; 

<br> 

<font size="4">FOR 

<b><%= TableDescriptorDisplay . getDisplayLabel (pe . getTableName ( ) , 
TableDescriptorDisplay. AllUpper) %><%= 

(TableDescriptorDisplay. getDisplayLabel (pe . getTableName ( ) , 
TableDescriptorDisplay. AllUpper) . equals ("CUSTOM VIEW 
PROTOTYPE^") I | 

TableDescriptorDisplay. getDisplayLabel (pe . getTableName ( ) , 
TableDescriptorDisplay. AllUpper) . equals ("CUSTOM VIEW 
PROTOTYPE_2") I | 

TableDescriptorDisplay . getDisplayLabel (pe . getTableName ( ) , 
TableDescriptorDisplay. AllUpper) .equals ("CUSTOM VIEW 
PROTOTYPE_l" ))?"":" #"+pe.getCurrentKey () %></b> 
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</font> 

<img src="images/logo-width.gif n > 



<% 

%> 

<% 
%> 



} 

if (se.getSearchStringO ! = null) { 

<brXFONT size= n 4 n > (FILTERED) </font> 
<img src= n images /logo-width . gif " > 



</fontx/TD> 
</TR> 
</TABLE> 
<hr> 

< 1 —FORM — > 

<FORM name= n editForm" action="<%= ORIPath %>/Browse. jsp" METHOD="POST 
onSubmit=" return validateRPP ( ) H > 

<TABLE width= n 100% n cellpadding="O n cellspacing*" 0"> 

<tr valign="top" align= n right n XTD valign= M top" align= n lef t"> 
<%= 



TableDescriptorDisplay.displayNavbar (origTableName, unqStr 
anBrowseFlag, canAddFlag, (se.getSearchStringO != null)) 

%> 

</TDXTD valign= n top" align= M right "> 

</TD> 

</TR> 
</TABLE> 
<br> 



StringBuffer qStr=new StringBuf f er () ; 
StringBuffer paramStrBuf=new StringBuf fer () ; 
StringBuffer tableHeaders=new StringBuf fer () ; 
DataDictionaryTD ddtd = dd.getDataDictionaryTD (tableName) ; 

Enumeration displayFieldsEnumeration = ddtd. displayFi elds () ; 

int columnlndex =0; 

while (displayFieldsEnumeration . hasMoreElements ( ) ) { 
String columnName = (String) 
displayFieldsEnumeration . nextElement ( ) ; 

/* 

if (columnName. endsWith( n _DATE") ) { 

qStr. append (" to_char ( n +columnName+ n , 'MM/DD/YYYY' ) AS ") ; 

} 

*/ 

paramStrBuf . append ( columnName + w , ") ; 

qStr . append (columnName+ ,, , " ) ; 

if (ddtd.getKeyField() != null && 

ddtd.getKeyFieldO .equals (columnName) ) 

{ 

continue; 

} 

//tableHeaders. append ("<TH bgcolor= n +DARKCELL+ "><f on t size=* 
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\ " 2 \ " > " +W>leDescr iptorDisplay . ge tlffe©^^3®«dridy*S©€i^ 
e)+"</font></TH>") ; 

t ableHeader 3. append ("<TH bgcolor="+DARKCELL+"Xf ont size= 
\ n 2\"> n +ddtd.getFormattedField(columnIndex++)+ n </font></TH> n ); 

} 

// delete last , 

qStr .deleteCharAt (qStr .length () -1) ; 

paramStrBuf . deleteCharAt (paramStrBuf. length () -1) ; 

qStr - insert ( 0 , " SELECT "); 
. qStr. append (" FROM "+tableName) ; 



/* 

15 else if (origTableName . equals ( 

session. getAttribute ("filterTarget") )) 

{ 

qStr. append (session. getAttribute ("f ilterString") ) ; 

} 

20 */ 

//if (keyField ■ = null I I 

origTableName . equals (session. getAttribute ("filterTarget") ) ) { 
//String f ilterString; 

//if ( (filterString= (String) session. getAttribute (origTableName) ) !» 
25 null) { 

if ( ( s e. ge tMa ster Column () != null) I I (se .getSearchString () ! = 
null)) { 

if (tableName.endsWith("_VIEW") ) { 

DataDictionaryTD ddtd2 ■ dd.getDataDictionaryTD(tableName) ; 
30 qStr = new StringBuf f er (ddtd2 .getViewSelect () . trim ( ) ) ; 

) 

else { 

qStr . append ( H A n ); 

) 

35 } 

if (se.getMasterColumn () != null) { 

if (qStr . toString () .indexOf ("WHERE") > 0) { 
qStr . append ( " AND A . "+se . ge tMasterColumn ( ) 
40 +"="+pe.getCurrentKey () ) ; 

} 

else { 

qStr . append ( " WHERE A. "+se . getMasterColumn ( ) 
+"="+pe . getCurrentKey ( ) ) ; 

45 } 
} 

if (Debug. areDebugging) { 

Debug. doLog ("Pre search-string suffix: "+qStr, Debug. INFO) ; 
Debug. doLog ("Search string: | "+se. getSearchString () 
50 +" | " f Debug. INFO); 

} 

if ( (se. getSearchString () != null) && (se .getSearchString () . length () 
> 0)) { 

if (qStr . toString ( ) . indexOf ( "WHERE" ) > 0) { 
55 qStr.append(" AND "+se. getSearchString () ) ; 

} 

else { 

qSt r . append ( " WHERE "+se . getSearchString ( ) ) ; 
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} 

} 

if (Debug. areDebugging) { 

Debug. doLog ("Pre search-string suffix: n +qStr, Debug. INFO) ; 

} 

StringBuf fer orderByStr » new 

StringBuf fer (TableDescriptorDisplay .getOrderBy (ddtd) ) ; 

// check for sort order 
String sortOrderName = null; 
ResultSetMetaData rsmd = ddtd.getMetaData () ; 
try { 

for (int i=l;i<=rsmd.getColumnCount () ;i++) { 
String curColName = rsmd.getColumnName (i) ; 
if ( curColName. endsWith("SORT_ORDER") II 
curColName . ends With ( n SORT_KEY n ) ) 

{ 

sortOrderName « curColName; 
break; 

} 

} 

if (sortOrderName != null) { 

if (orderByStr. length () 0) { 

orderByStr . append (sortOrderName) ; 

} 

else { 

orderByStr. insert (0, sortOrderName+", ") ; 

) 

} 

) 

catch (SQLException sqle) { 
sqle . printStackTrace ( ) ; 

} 

if (orderByStr. length () > 0) { 

qStr. append (" ORDER BY "+orderByStr) ; 

} 

java.util.Date beginView = null; 
if (Debug. areDebugging) { 

Debug. doLog ("View qStr: "+qStr . toStringO , Debug. INFO) ; 

beginView = new java.util.Date () ; 

} 

//stmt = 

con . createStatement (ResultSet . TYPE_SCROLL_INSENSITI VE , ResultSet . CONC 
UR_RE AD_ONL Y ) ; 

rs = stmt . executeQuery (qStr . toString ( ) ) ; 
//ResultSetMetaData rsmd = rs .getMetaData () ; 

if (Debug. areDebugging) { 

// Debug. doLog("newPageSize = 

"+request.getParameter ("newPageSize") , Debug . INFO) ; 
// Debug. doLog ("pageSize = 

"+session.getAttribute("pageSize") , Debug. INFO) ; 

} 

if (request.getParameter ("newPageSize") != null) { 
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session. WtAttribute ("pageSize", 
request .getParameter ("newPageSize") ) ; 

} 

int pageSize = ( session. getAttr ibute ("pageSize" ) — 
5 null) ?10 : Integer .parselnt ( ( (String) 

session. getAttribute ("pageSize") ) ) ; 

String scroll - (String) request . getParameter ("Scroll") ; 
if (scroll = null) { scroll » ""; } 
// /* 

10 rs.lastO; 

int rowCount = rs.getRowO; 

// */ 

/* 

int rowCount =0; 
15 try { 

while (rs.nextO) { 
rowCount++; 

} 

} 

20 catch (Exception ex) { 

// sqle . printStackTrace ( ) ; 
if ( Debug. areDebugging) { 

Debug. doLog ("Caught generic exception in Browse on 
rs.nextO . . . ", Debug. INFO) ; 

25 } 
} 

*/ 

rs . bef oreFirst ( ) ; 

int topRow «= Math . min ( se . getRowPointer ( ) , rowCount ) ; 



30 



<% 



// int topRow = 0; 

// StringBuffer [] sbAry=null; 

if (rowCount < 1) { 



%> 

35 <br><br><br> 



<hr> 

<font face="ARIAL, HELVETICA" size="4 "><center> 

                    &n 
bsp; Snbsp;     

THERE ARE <b>NO RECORDS</b> WHICH SATISFY YOUR REQUEST 
</centerx/font> 



) 

45 else if (ddtd. get Table () .equals ("CUSTOM_VIEW_PROTOTYPE_3") && 

(canAddFlag) && (rowCount =1)) { 
if (rs.firstO) { 

se . setMode ( " search " ) ; 
se . setCurrentKey (null) ; 
50 se . setSearchString (null) ; 

// se.setSearchParams (new Hashtable) ; 
// se. setForraValues (new Hashtable); 
/ /pageContext . forward ( n / AddEdi t Form . j sp? " + 
response. sendRedirect ("/Schemalive/AddEditForm. jsp?"+ 
55 "tableName=SPECIAL_TABLE_l&"+ 

"mode=add&"+ 
"doProcess=add&"+ 
// "keyValue=0&"+ 
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n pai^ntKey= ,, +rs . getString (3) -fp&0* P 
// n newPageSize= tf +pageSize+' f & ,, + 
f, stackLevel=%2B"+ n & n + 
ddtd - getDat abase ( ) 

5 + n SPECIAL_TABLE_1 SPECIAL_COLUMN_l_KEY^"+rs . getString (10 

)+"&*+ 

//TableDescriptorDisplay. getNoCache (TableDescriptorDisplay - 
ForURL) ) ; 

10 n unq="+unqStr 

); 

} 

} 

// else if ( (canEditFlag) && (rowCount — 1) && (ddtd.getKeyFieldO 
15 !== null) ) { 

else if ((canEditFlag) && (rowCount — 1) && 

((ddtd.getKeyFieldO ! = null) )| (ddtd. get TDType () ==* 
TableDescriptor.VIEW) ) && 

( ! ddtd . getTable ( ) . equals ( "CUSTOM_VIEW_PROTOTYPE_l" ) ) & & 
20 ( (session. getAttribute ("expressEdit") != null) && 

( ( (String) session. getAttribute ("expressEdit") ) .equals ("Yes") ) ) ) 

{ 

if (rs. first ()) { 
/* 

25 se.setMode ("search") ; 

se . setCurrentKey (null) ; 
se . setSearchString (null) ; 
*/ 

// se.setSearchParams (new Hashtable) ; 
30 // se . setFormValues (new Hashtable); 

// pageContext . forward ( " /AddEditForm . j sp? "+ 
response . sendRedirect (" /Schemalive/AddEditForm. j sp? "+ 
■ tableName= " +or igTableName+ n & " + 
"mode=edit& ,, -H 
35 n doProcess=update&"+ 

// n keyValue= w +rs. getString (ddtd.getKeyFieldO )+"&"+ 
// n keyValue== w +rs.getString( (ddtd.getTDType () ===== 
TableDescriptor . VIEW) ?1 : ddtd . getKeyField ())+"& n + 
" keyValue«= n + ( (ddtd.getTDType 0 == 
40 TableDescriptor . VIEW) ?rs . getString (1) : rs . getString (ddtd. get 

KeyFieldO ) )+"&"+ 

// tt parehtKey=* n +rs . getString (3) + "&"+ 
// w newPageSize="+pageSize+"& n + 
// n stackLevel=%40 ,, + n & n + 
45 // ddtd. get Database () 

+" S PE C IAL_TABLE 1 SPECI AL_COLUMNJL_KEY= " +r s . getString (10 

)+"&"+ 
// 

TableDescriptorDisplay . getNoCache (TableDescriptorDisplay . Fo 
50 rURL) ) ; 

"una^+unqStr 



); 



} 



> 

55 /* 



else { 

// stmt = con . createStatement () ; 

rs = stmt . executeQuery (qStr . toString () ) ; 
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rsmd = rs . gSRletaData ( ) ; 
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/- 

int rowCount =0; 
5 while (rs.nextO) { 

rowCount ++; 
> 

-/ 

10 } 

*/ 

if (scroll. startsWith'( n P n >) { 
topRow =» topRow - page Size; 

15 else if (scroll .startsWith ( w N n ) ) { 

topRow » Ma th.min (topRow + pageSize, (rowCount - pageSize) + 1); 

} 

else if (scroll. startsWith ("B") ) { 

topRow = (rowCount - pageSize) +1; 

20 } 

else if (scroll.startsWith( w T ,, )> ( 
topRow =1; 

} 

else { 

25 topRow = Math. rain (Ma th. max (1, topRow), (rowCount - pageSize) + 

D; 

} 

topRow - Math. max (topRow, 1); 

30 StringBuf f er [ ] sbAry=new StringBuf f er [rsmd . getColumnCount ( ) ] ; 

if (topRow <= 1) { 
rs . bef oreFirst ( ) ; 

) 

35 else ( 

rs . absolute ( topRow- 1) ; 

} 

/* 

40 int rowNum = 1; 

while (rowNum < topRow) { 

rs . next ( ) ; 

rowNum++; 

} 

45 */ 

int rowNum = topRow; 
boolean firstRow = true; 

// while ((rowCount > 0) && rs.next() && (rowNum < topRow + 
50 pageSize) ) { 

StringBuf fer tableHelp =» new StringBuf fer () ; 

while (rs.nextO && (rowNum < topRow + pageSize)) { 
55 if (firstRow) { 

int pageNumber = 2+ ( (topRow-2) /pageSize) ; 

int pageCount - ( rowCount +pageSize-l) /pageSize; 

if (topRow 1) { 
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pa^FJumber = 1; 

) 

else if ( (topRow+pageSize) >= rowCount) { 
pageNumber = pageCount; 

} 

<TABLE border= n l n width= n 100%" id= n dataTable"> 

<TR VALIGN— CENTERXTD ALIGN=CENTER COLSPAN="<%= • 
rsmd.getColumnCount () + 1 %>" BGCOL0R= n <%= MIDLCELL %>"> 
< TABLE BORDER=0 CELLPADDING= 0 WIDTH=100%%> 
<TR VAL I GN=CENTER> 

<TD WIDTH=20%X/TD> 

<TD ALIGN=CENTERXf ont size=2>PAGE <%= pageNumber 
%> OF <%== pageCount %> (totaling <%= rowCount %> 
records 6 <INPUT TYPE=TEXT MAXLENGTH=4 SIZE=3 
NAME="newPageSize" VALUE= n <%= pageSize %>"> rows 
per page)</TD> 

<TD ALIGN—RIGHT WIDTH=20%XINPUT TYPE 55 " SUBMIT" 
NAME="Scroll" VALUE* "Re set Rows"X/TD> 
</TR> 
</TABLE> 
</TDX/TR> 

<TR valign="bottom n align="lef t"> 

<TH bgcolor="<%= DARKCELL %>" align="right">#</TH> 
<%= tabXeHeaders.toStringO %> 
<% 

" firstRow = false; 

} 

//BalloonHelp bh=BalloonHelp - getlnstance ( ) ; 
Balloon b=bh.getNavBalloon ("editLink") ; 
StringBuffer linkString = new StringBuf f er ("<A "+ 
( (b!=null)? 

"onMouseOver=\ n setHang ( ' "+b . get ID ( ) 

, event , this , 'navLink'); n + 
"return true;\" "+ 

w onMouseOut=\ n clearHang() ; return true;\ n n + 
"onClick=\"clearHang() ; return true;\" ": 

n n 

) + 

"HREF=\""+ 
"javascript: edit ( • " 

); 

for (int i=l ; i<=r smd . getColumnCount () ;i++) { 
String rsStr=rs.getString(i) ; 

if { (ddtd . getTable ( ) . equals ( "CUST0M_VIEW_PR0T0TYPE_2 " ) | | 
ddtd.getTable() .equals ( n CUSTOM_VIEW_PROTOTYPE_l n ) ) && i==l) { 
loopCellFlag - 

(rs.getString(2) . toUpperCase {) .equals ("DRILL_C0NTEXT_1") ) ?B 
rowseTargetlFlag : BrowseTarget2Flag; 
b=bh .getNavBalloon ("CVCommentsEditLink" ) ; 
linkString » new StringBuf fer ("<A "+ 
((b!=null)? 

"onMouseOver=\ n setHang ( • n +b.getID () 

, event, this, •navLink' ) ; n + 
"return true;\" "+ 
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%> 
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- "onMouseOut^X^clearHangf^lC ^^4J SWklV^ 
"onClick=\ n clearHang() ; return true;\" 

n n 

) + 

5 n HREF=\ "Browse . j sp? n + 

((rs.getString{2) . toUpperCase () .equals ( n DRILL_CONTEXT_l n 
))? 

w tableName=EDIT__TARGET_l& n : 
10 n t ableName=EDIT JTARGET_2 & " 

) + 

"mode=browse& n + 
w doProcess=browse& n + 
"parentKey^+rs . getString (4) +"&"+ 
15 " stackLevel=%2B n + 

n &unq= n +unqS t r+ " \ " >» 

); 

} 

else if (ddtd.getTable() .equals ( n CUSTOM_VIEW_PROTOTYPE_3") && 
20 i==l) { 

linkString - new StringBuf fer ( M <A HREF=\"AddEditForm. jsp? n + 
n tableName=SPECIAL_TABLE_l & "+ 
w mode=add& ,, + 
n doProce s s=add& n + 
25 w parentKey= n +r s . getString ( 3 ) + n & w + 

"stackLevel=%2B rt +*&' r -f 
ddtd . get Database ( ) 

+ n SPECIAL_TABLE_1 SPECIAL_COLUMN_l_KEY= n +ra . getString 

(10)+ n &"+ 

30 n unq= w +unqS tr+ n \ " > n 

); 

} 

else if ( (ddtd.getTDTypeO — TableDescriptor . VIEW && i=«=l) || 
(ddtd.getKeyFieldO != null && 
35 ddtd.getKeyFieldO .equals (rsmd. getColumnName (i) ) ) ) 

{ 

linkString. append (rsStr+ n ■ , ■+ 
unqStr+ 

40 ); 

} 

if (rsStr = null) { 
sbAry [ i- 1 ] «nul 1 ; 

} 

45 else { 

sbAry[i-l]=new StringBuf fer (rsStr) ; 

} 

} 

%> 

50 </TR> 

<TR valign= w bottom"> 

<TD bgcolor=« n <%= MIDLCELL %>" align="right n > 
<%= (canEditFlag && 

loopCellFlag) ?linkString . toString ( ) : n " %> 
55 <%= rowNum++ %><%= (canEditFlag && 

loopCellFlag) ? W </A>":" n %> 
</TD> 

<% 
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r (int i=0;i<sbAry.lengtP?^U/ 
if (ddtd.getKeyField() != null && 

ddtd.getKeyField() .equals (rsmd.getColumnName (i+1) ) ) { 
continue; 

} 



if 

(rsmd.getColumnName (i+1) . ends With ( "OVERALL_STATUS w ) ) 
{ 

String colorStr; 
if (sbAry[i]==null) { 
color Str=LITECELL ; 

} 

else { 

int openParen=sbAry [i] .toString () .indexOf (" (") ; 
int closeParen- 

sbAry[i] . toString () .indexOf (") ") ; 
if (openParen >= 0 && closeParen >= 0) { 
colorStr = 

sbAryCi] . substring (openParen+1, closeParen) .t 
rim(); 

} 

else { 

colorStr = LITE CELL; 

} 

} 

<TD bgcolor» n <%= colorStr %>"> 

} 

else { 

<TD bgcolor="<%~ LITECELL %> n > 



<font size="2 n > 

CustomDrillDown cdd=ddtd.getCustomDrillDown (i) ; 
if (sbAry[iJ null) { 
//if 

(rsmd.getColumnName (i+1) .endsWith ("OVERALL_STATUS n 
)) {) 

if (cdd !« null) { 

String targetTable = 

cdd.getTableName(sbAry[l] .toString () .toUpperCas 
e()); 

if (target Table . equals ( "DRILL_TARGET_1" ) && 
cdd.getModeO .equals ("edit") ) { 
loopCellFlag = EditTargetlFlag; 

} 

else if ( targetTable. equals ("DRILL_TARGET_2 W ) 
& & cdd . getMode ( ) . equals ( n edi t " ) ) { 
loopCellFlag = EditTarget2Flag; 

) 

else if (tar get Table . equals ( n EDIT_TARGET_l") && 
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cdd.getMode () . 

loopCellFlag = BrowseTargetlFlag; 

} 

else if ( targetTable. equals ("EDIT_TARGET_2" ) && 
5 cdd.getMode () .equals ("browse") ) { 

loopCellFlag - BrowseTarget2Flag; 

) 

if (canEditFlag && loopCellFlag) { 

10 %> 

<A HREF="AddEditForm. j sp?tableName=<%= 
cdd. getTableName (sbAry [1] .toStringO .toUpper 
CaseO) %>&mode=*<%= cdd . getMode ( ) %> 
&doProcess=update&keyValue=<%= 
15 sbAry [ cdd. getKey Column () ] . toString () %> 

&parentKey=<%= 

sbAry [cdd.getParentColumn () ] . toString () %> 
&stackLevel«%2B&focusField=<%= 

ddtd.getDatabase() %> <%= 

20 cdd . getTableName ( sbAry [ 1 ] . toString ( ) . toUpper 

CaseO) %> <%= cdd.getFocusFieldO %>&unq= 

<%= unqStr %>">NONE</A> 

<% 

} 

25 else { 



%> 
<% 



%> 
<% 



  

} 



30 } 

else { 



finbsp; 

) 



} 

else if ( (sbAry [i] .length () > 255) && (cdd ~ null)) 
{ 

%> 

40 <textarea><%= sbAry [i] .toString () %> 

</textarea> 

<% 

1 

else { 

45 if (cdd != null) { 

String targetTable = 

cdd. getTableName (sbAry [1] . toString () .toDpperCas 
e()); 

if (targetTable. equals ("DRILLJFARGETJL") && 
50 cdd.getMode () -equals ("edit") ) { 

loopCellFlag = EditTargetlFlag; 

} 

else if (targetTable . equals ("DRILL_TARGET_2") 
&& cdd. getMode () .equals ("edit") ) { 
55 loopCellFlag - EditTarget2Flag; 

} 

else if (targetTable. equals ( W EDITJTARGET_1") && 
cdd . getMode ( ) . equals ( "browse n ) ) { 
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loopCellFlag HP^^Ia^UtiRSsi^; 

} 

else if (tar get Table . equals ( n EDIT_TARGET_2" ) && 
cdd.getMode () .equals { "browse") ) { 
loopCellFlag - BrowseTarget2Flag; 

> 

if (canEditFlag && loopCellFlag) { 

%> 

<A HREF= n AddEditForm. jsp?tableName=<%= 
cdd.getTableName (sbAry [1] .toStringO .toUpper 
CaseO) %>&roode=<%= cdd.getMode ( ) %> 
&doProcess=update & keyValue=<%= 
sbAry[cdd.getKeyColumn() ] .toStringO %> 
&parentKey=<%= 

sbAry [cdd.getParentColumn () ] .toStringO %> 

&stackLevel=%2B&focusField=<%= 

ddtd . getDatabase ( ) %> <%=* 

cdd.getTableName ( sbAry [1] .toStringO .toUpper 

CaseO) %> <%= cdd.getFocusFieldO %>&unq= 

<%= unqStr %>"> 

<% 

} 

} 

%> 

<%« 

sbAry [i ] .toStringO 

%> 

<% 

if ((cdd » = null) && canEditFlag && loopCellFlag) 
{ 

%> 

</A> 

<% 

) 

} 

%> 

</font> 
</TD> 

<% 

) 

%> 

</TR> 

<% 

) 

String paramList^aramStrBuf. toStringO ; 
java.util.Date endView = null; 
java. text . DateFormat df = null; 
if (Debug. areDebugging) { 

endView » new java.util.Date () ; 

df » java. text. DateFormat. getlnstance () ; 

) 

if (rowCount > 0) { 

%> 

</TABLE> 

<% 
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} 

if (topRow > 1|| topRow < (rowCount 

%> 

<HR> 

<DIV AL I GN=RI GHT > 

<% 

) 

if (topRow > 1) { 

%> 

<INPOT TYPE=" SUBMIT" NAME= n Scroll" VALUE="Top of List"> 

<% 

) 

if (topRow > pageSize + 1) { 

%> 

<INPUT TYPE="SUBMIT" NAME="Scroll" VALUE=" Previous <%= 
pageSize %> Rows"> 

<% 

) 

if (topRow < (rowCount - (2*pageSize) ) + 1) { 

%> 

<INPUT T YPE= " SUBMIT " NAME="Scroll" VALUE= n Next <%= pageSize %> 
Rows"> 

<% 

} 

if (topRow < (rowCount - pageSize) +1) { 

%> 

<INPUT TYPE="SUBMIT" NAME="Scroll" VALUE=" Bottom of List"> 

<% 

} 

if (topRow > 111 topRow < (rowCount - pageSize) + 1) { 

%> 

</DIV> 

<% 

} 

se . setRowPointer (topRow) ; 

// session. setAttribute ("pageSize", new Integer (pageSize) ) ; 

%> 

<hr> 

<! — /FORM — > 
<% 

/* 

[b] [%= TableDescriptorDisplay.getDisplayLabel(origTableName) %] [/b] 
options : 

[FONT size="2"] [strong] [A HREF="Browse. jsp?tableName= [%= origTableName 
%]&raode=browse&doProcess=fullList"]FULL LIST[/A] [/strong] [/font], 

[font size="2"] [strong] [A BREF="AddEditForm. jsp?tableName=[%= 
origTableName % ] &mode=search&doProcess=new" ] NEW SEARCH [/a] [/strong] 

[/font], 

[font size="2"] [strong] [A HREF="AddEditForm. jsp?tableName=[%= 
origTableName %] &mode=search&doProcess=revised" ] REVISED SEARCH [/ a] 
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- pageSize) + 1) { 
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[/strong] [/fonW, 

[font size=*"2 rt ] [strong] [A HREF="AddEditFori^jsp?taKIeNaSe= [%= 
origTableName %] &mode=add&doProcess=insert" ] ADD [ /a] [/strong] [/font] 
*/ 

5 %> 

<SCRIPT> 

function edit (keyValue) { 

document . editForm. keyValue . value=keyValue; 
document. editForm. act ion= n <%= URIPath %>/AddEditForm. jsp" 
10 document . editForm . submit ( ) ; 

} 

</SCRIPT> 

<! — FORM name= w editForm n action= n <%= URIPath %> 
15 / AddEdi tForm . j sp n METHOD=" POST " - . > 

<! — FORM name^^editForm" action= n /snoop" METHOD= w POST" — > 
<input type= n hidden n name= n tableName n value= w <%= origTableName 
%>"> 

<input type="hidden n name» n mode w value=» n edit n > 
20 <input type="hidden n name="doProcess" value=" update "> 

<input type="hidden n name= M keyValue n value= M "> 
<input type- n hidden" name= n topRow" value= n <%= topRow %>"> 
<input type="hidden" name^pageSize" value="<%= pageSize %>"> 
<input type= n hidden" name= n unq n value= w <%» unqStr %>"> 
25 <!--%= 

TableDescriptor Display . getNoCache (TableDescriptorDisplay . ForFo 
rm) % — > 
</FORM> 

30 



<% 
%> 



<!— hr — > 

if (Debug. areDebugging) { 

35 <! — 

Began DD getlnstance: <%= df .format (beginDD) %><br> 
Ended DD getlnstance: <%= df .format (endDD) %><p> 

Began View: <%= df. format (beginView) %><br> 
40 Ended View: <%= df . format (endView) %><p> 

Total load time (ms) : <%= endView. get Time () - 
beginDD . getTime ( ) %> 



45 <% 
%> 



— > 



} 



< ! — /view : setVars — > 
<SCRIPT> 

50 setTableCoords ( ) ; 

setupNavHelp () ; 
<%= tableHelp . toString ( ) %> 
</SCRIPT> 

</BODY> 
55 </HTML> 
<% 

} 

catch (SQLException sqle) { 
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sqle . printSlRkTraCe ( ) ; 
throw sqle; 

} 

finally { 
5 try { 

if (rs != null) rs. close () ; 

if (stmt != null) stmt. close () ; 

if (con != null) con. close () ; 

} 

10 catch (SQLException sqle) { 

sqle.printStackTrace () ; 

} 

} 

%> 

15 <%@ include f ile= n common/ Gl obal Foo ter . jsp" %> 
Schemalive/DataDic tic-nary . jsp 

<%! 

20 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

%> 

<%@ page iraport="dbUtils .*" %> 

25 

<HTML> 

<HEAD> 

<TITLE>DataDictionary</TITLE> 
<SCRIPT> 
30 function scrollIt() { 

parent . scrollTo (1, 10000000) ; 

} 

</SCRIPT> 
</HEAD> 

35 <B0DY bgcolor=" #FFFFFF" > 

<% 

String buildDDMode » request . getParameter ( "buildDDMode" ) ; 
if (buildDDMode — null) { 

%> 

40 <FORM action=*"DataDictionary. jsp n > 

Build DataDictionary<br> 

< input type=" radio" name="buildDDMode" value="DDOnly"> 
Only<br> 

<input type="radio" name~ "buildDDMode" value="DDViewCheck"> 
45 and Views (with check) <br> 

<input type="radio" name="buildDDMode" value="DDViewNoCheck"> 
and Views (without check) <br> 
<input type=" submit" value="Build"> 
</FORM> 

50 <% 

} 

else { 

%> 

<INPUT type="button" valuer" Scroll" 
55 onClick= n setTimeout( , scrollIt() ' r 1000)"><p> 

<% 

//JspWriter out = pageContext . getOut ( ) ; 
if (buildDDMode. equals ("DDOnly") ) { 
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DataDictionary. ref reshlnstance ("cnslt_crm", "nomatter", true, false, out 
) ; 

} 

5 else if (buildDDMode. equals ("DDViewCheck") ) { 

DataDictionary . ref reshlnstance ( n cnslt_crm" , "nomatter" , 
false, true f out) ; 

} 

else if (buildDDMode. equals ("DDViewNoCheck") ) { 
10 DataDictionary .ref reshlnstance ("cnslt__crm", "nomatter", 

false, false, out) ; 

} . 

) 

%> 

15 </BODY> 
</HTML> 

Schemalive/DoAddEdit . j sp 

20 <%! 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

%> 

25 <%§ page import="dbUtils. *" %> 

<%8 page import="HTMLUtils.*" %> 

<%@ page import="sessionUtils .*" %> 

<%@ page import=" java.sql.*" %> 

<%6 page iraport=" java.util. *" %> 
30 <%@ page import=" common . * n %> 

<%§ page autoFlush=" false" buffer="50k" errorPage="/Error500 . j sp" %> 

<%! public static final String version_DoAddEdit_jsp = "$Revision: 2.3 $"; %> 

35 

<%@ include f ile="common/EntryPoints . jsp" %> 

<%@ include file="common/GlobalHeaderVARS. j sp" %> 

<%@ include f ile="common/EmptyParamCheck. jsp" %> 

40 <% 

String unqStr=* 

TableDescriptorDisplay . getNoCache (TableDescriptorDisplay . For JavaScript) 

i 

45 if (request. getParameter ("unq") ! = null && 

request . get Parameter ("unq") . equals ( (String) 
session . getAttribute ( n unq" ) ) ) 

{ 

if (Debug. are Debugging) { 
50 Debug . doLog ( "DoAddEdit unq matched ! " , Debug . INFO) ; 

} 

session . setAttribute ("unq" , unqStr) ; 

} 

else if (request. getParameter ("unq") !- null && 
55 session. getAttribute ("unq") — null) 

{ 

if (Debug. areDebugging) { 

Debug. doLog ("DoAddEdit unq did not match", Debug. INFO) ; 
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} 

response. sendRedirect ("/Schemalive/ExpiredSession. jsp") ; 
return; 

) 

else { 

response. sendRedirect ("/ S enema live/OutOf Sequence. jsp") ; 
return; 



Connection con=null; 
Statement stmt=null; 
Result Set rs=null; 
try { 

con=SQLUtil .makeConnection () ; 

String doProcess = request .getParameter ("doProcess") ; 
Enumeration parameterNames = request . getParameterNames () ; 

DataDictionary dd = DataDictionary . get Instance (dbName, dbConnName) ; 
LinkedList 1« (LinkedList) session. getAttribute ("sessionStack") ; 
Hashtable tableVals= ( (StacJcElement ) 1 . get (1 . si ze ( ) -1 ) ) . getFormValues ( ) ; 
Hashtable f ilterVals= ( (StackElement) 
1 • get (1. size 0-1) ) .getSearchParams () ; 

String tableName = null; 

if ( doProcess. equals ("drillDetail") | | 
doProcess. equals ("drillPickList") ) { 

// put all parameter values into session 

// get first legit parameter name to get at key 
while (parameterNames . hasMoreElements ( ) ) { 

String param= (String) parameterNames . nextElement ( ) ; 

// int dbSepl=param.indexOf (" "); 

// if (dbSepl < 0) { 

if (param.indexOf (" n ) < 0) { 

continue; 

> 

// ) 

// int dbSep2«param.indexOf ( n n ,dbSepl+l); 

tableVals .put (par am, request . getParameter (param) ) ; 

) 

String mode= n edit"; 

String newProcess= n update"; 

if (request. getParameter ( w keyValue n ) null I 1 
request. getParameter ("key Value") .equals ("") ) 

{ 

mode= , "add"; 

//insert return field as if it had been selected. Actual key will 
be 

//put in below. 

tableVals. put (request. getParameter ("returnDropDown") ,"0") ; 
newProcess^insert" ; 

> 

String f orwardPage= (doProcess . equals ( "drillDetail" ) ) ? 
"Browse . j sp " : " AddEdi tForm . j sp " ; 
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pageContext^rward( n / n +forwardPage+"p^lflJaEi^^^f 
request . getParameter ( " tableName ■ ) +*&keyValue:="+ 
request. getParameter ("keyValue" ) +"&mode="+mode+ n &doProcess= n + 
newProcess+ n & stackLevel=%2B& n + 
"unq="+unqStr 

); 

} 

else { 

Hashtable paramHash=new flashtable ( ) ; 

boolean setTableName=f alse; 

while (parameterNames . hasMoreElements ( ) ) { 

String param= ( String) parameterNames . nextElement ( ) ; 

15 if (param.indexOf (" ") < 0) { 

continue; 

> 

if ( ! setTableName) { 
20 setTableName=true; 

int dbSepl=param . indexOf ( " n ) ; 

int dbSep2=param.indexOf (" ",dbSepl+l) ; 

tableName=param. substring (dbSepl+2, dbSep2) ; 

} 

25 

/* 

if (doProcess. equals ("filter") ) { 

f ilterVals .put (param, request . getParameter (param) ) ; 
} 

30 String value=null; 

*/ 

String value=request .getParameter (param) ; 
String [ ] values=null ; 
35 if (doProcess. equals-("f ilter") ) { 

f ilterVals . put (param, value) ; 
if (param. endsWith ("_FLAG") ) { 
value=null; 

values^ String [] ) request .get Paramete rvalues (param) ; 
40 if ( values. length==l) { 

f ilterVals .put (param, values [0] ) ; 

} 

else { 

f ilterVals. put (param, "") ; 

45 } 
} 

} 

/* 

50 if (param. endsWith ("_FLAG") && doProcess . equals ("filter") ) { 

values= (String []) request .getParameterValues (param) ; 
} 

else { 

value=request. getParameter (param) ; 
55 } 
*/ 

if (values != null )| lvalue. equals ("") ) { 
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int dl^^pl^arara . indexOf ( n n ) ; 

int dbSep2=param.indexOf (" ",dbSepl+D ; 

if (param.endsWith("_DATE")) { 

paramHash . put (param. substring (dbSep2+2) , 
"to_date ( 1 "+value+" ' , •MM/DD/RRRR 1 ) ") ; 

} 

else { 

if (values != null) { 

paramHash. put (param. substring (dbSep2+2) , values) ; 

} 

else { 

paramHash. put (param. substring (dbSep2+2) , value) ; 

} 

} 

} 

) 

String qStr=null; 

Enumeration paramHashKeys=paramHash . keys ( ) ; 

String primaryKeyName=null ; 

String priraaryKeyVal=null; 

// session. setAt tribute ("powerAdd", "No"); 

if (doProcess. equals ("insert") ) { 

// session . setAttribute ("powerAdd" , 

(request. get Par ameter ( "powerAdd" ) != null) ? ( (String) 
request . getParameter ( "powerAdd" ) ) : "No" ) ; 

StringBuffer qStrStart=new StringBuf f er () ; 
StringBuffer qStrEnd=new StringBuf fer () ; 

while (paramHashKeys .hasMoreElements () ) { 

String paramKey « (String) paramHashKeys .nextElement () ; 
String paramVal = (String) paramHash. get (paramKey) ; 
if (! paramVal. startsWi th (" to_date" ) ) { 

paramVal=" 1 "+SQLUtil.processSingleQuote (paramVal) +" ' " 

} 

qStrStart . append (paramKey+" , " ) ; 
qStrEnd. append (par amVal+", ") ; 

} 

Integer usersKey= (Integer) session. getAt tribute ("usersKey") ; 
// check for ENTERED_BYJJSERS_KEY, ENTRY__I>ATE , 
// MODI FIEDJB Y^JJSERS^ KE Y , and LAST_MODIFIED_DATE 
DataDictionaryTD ddtd = dd.getDataDictionaryTD (tableName) ; 
if (ddtd. f indColumnName ("ENTEREp_JBY_JJSERS_KEY" ) != 0) { 

qStrStart, append ("ENTERED_BY_USERS_KEY, ") ; 

qStrEnd. append (usersKey+", ") ; 

} 

if (ddtd. f indColumnName ("MODIFIEDJBY_USERS_KEY" ) !- 0) { 
qStrStart . append ( "MODIFIED_BY_JJSERS_KEY , " ) ; 
qStrEnd. append (usersKey+", ") ; 

) 

// get rid of trailing comma 

qStrStart . deleteCharAt (qStrStart . length ( ) -1 ) ; 
qStrEnd . deleteCharAt (qStrEnd. length ( ) -1 ) ; 
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qStr="INSRr into w +tableName+ , M n +q^S^'^-4S)^^!SF^' 1 
("+qStrEnd+") "; 

} 

else if (doProcess. equals ("filter") ) { 
5 session . setAttribute ( "expressEdit" , 

(request. getParameter ("expressEdit") 1= null) ? ( (String) 
request. getParameter ("expressEdit") ) : n No") ; 

StringBuffer qStrBuf f=new StringBuf f er () ; 
10 while (paramHashKeys . hasMoreElement s ( ) ) { 

String paramKey = (String) paramHashKeys. nextElement () ; 
String paramVal = null; 
String [] paramVals = null; 
String likePart - " LIKE "; 
15 if (paramKey. endsWith("_FLAG") ) { 

paramVals= (String [ ] ) paramHash .get (paramKey) ; 

} 

else { 

paramVal=< (String) paramHash. get (paramKey) ) . trira() ; 
20 if (paramVal. start sWith ("<=") || paramVal. start sWith ("<>") 

|| paramVal. startsWith (">=") ) { 

likePart = " "+paramVal . substring (0, 2) +" "; 
paramVal » paramVal. substring (2) .trim () ; 
if (Debug. areDebugging) { 
25 Debug. doLog ("********** FOUND TWO-CHARACTER (NON- 

DATE) RELATIONAL OPERATOR] " , Debug . INFO) ; 
Debug. doLog ("********** likePart: 
"+1 ike Part, Debug. INFO) ; 
Debug. doLog («********** paramVal: 
30 "+paramVal, Debug. INFO) ; 

) 

} 

else if (paramVal. startsWith ("<") || 

paramVal. startsWith ("=") II paramVal . startsWith (">") ) { 
35 likePart = " "+paramVal.charAt (0) +" M ; 

paramVal = paramVal. subs tring(l) .trim () ; 
if ( Deb ug . are Debuggi ng ) { 

Debug. doLog ("********** FOUND ONE— CHARACTER (NON- 
DATE) RELATIONAL OPERATOR ! " / Debug . INFO) ; 
40 Debug. doLog ("********** likePart: 

"+likePart, Debug. INFO) ; 
Debug . doLog ("********** paramVal : 
"+paramVal, Debug. INFO) ; 

} 

45 } 
} 

//DataDictionaryTD ddtd = 

dd. getDataDictionaryTD (tableName+"_VIEW" ) ; 
50 DataDictionaryTD ddtd = 

dd. getDataDictionaryTD (ViewGenerator .getViewName (tableName) ) ; 
String outputKey = new String (paramKey) ; 
if (ddtd ! = null) { 

outputKey=*"A. "+outputKey; 

55 ) 

// String likePart-" LIKE "; 
boolean skiplt=f alse; 
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if (p^nKey.endsWith(»_FLAG")) rA 

//special case; may have more than one 
if (paramVals. length 2) { 

//qStrBuff .append (paramKey+" "+paramVals [1] +" 0 AND "); 
5 paramVal="0"; 

likePart=" n +paramVals [0J +" 

} 

else { 

skiplt=true; 

10 } 
) 

else if (pararaKey.endsWith( n _KEY") ) { 
if (likePart. equals (" LIKE ")) { 
likePart^" = "; 

15 } 

paramVal=SQLUtil. processSingleQuote (paramVal) ; 

} 

else if (! paramVal. startsWith ( w to__date") ) { 
if (likePart. equals < n LIKE ") ) { 
20 par amVal«" UPPER ( 1 "+SQLUtil .processSingleQuote (paramVal) 

+"%')"; 

} 

else { 

paramVal="UPPER ( ' "+SQLUtil .processSingleQuote (paramVal) 
25 +"»)"; 

} 

outputKey-" UPPER ( n +outputKey+") "; 

} 

else { 

30 String dateStart - paramVal. substring (9) .trim () ; 

if (dateStart. startsWith ("<=") I I 

dateStart. startsWith <"<>") || dateStart . startsWith (">=") ) { 
likePart » ■ "+dateStart. substring (G, 2) + n "; 
paramVal = "to_date ( 1 "+ dateStart. substring (2) .trim () ; 

35 > 

else if (dateStart. startsWith ("<") || 

dateStart. startsWith (">") || dateStart . startsWith ("=") ) { 
likePart = n "+dateStart . charAt (0) +" "; 
paramVal = "to_date ( ' " + dateStart . substring (1) .trim () ; 

40 ) 
> 

if (iskiplt) { 

qStrBuff .append (outputKey+likePart+paramVal+ n AND "); 

} 

45 ) 

if (qStrBuff .length () > 4) { 

qStrBuff . delete (qStrBuff . length ( ) -4 , qStrBuff . length ( ) -1 ) ; 

} 

50 

StackElement se= (StackElement) 1 .get (1 .size () -1) ; 
se . setSearchString (qStrBuff . toString ( ) ) ; 

) 

else if (doProcess. equals ("update") ) { // edit 
55 DataDictionaryTD ddtd = dd.getDataDictionaryTD (tableName) ; 

StringBuffer qStrBuff =new StringBuf fer () ; 
ResultSetMetaData rsmd=Kidtd . getMetaData ( ) ; 
for ( int i=l ; i<=r smd . getColumnCount ( ) ; i++ ) { 
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Strin^teramKey = rsmd . getColumi$fe!8Jp TSE>; 

String paramVal = (String) paramHash. get (paramKey) ; 

if (paramKey. equals ("ENTERED_BY__USERS_KEY") II 
paramKey . equals ( "ENTRY_DATE" ) I I 
paramKey. equals ("MODIFIED_BY_USERS_KEY") | | 
paramKey. equals ("LAST_MODIFIED_DATE") ) 

{ 

continue; 

} 

if (paramVal == null) { 

if (paramKey. endsWith ("_FLAG" ) ) { 
paramVal-"0"; 

} 

else { 

paramVal= nn ; 

) 

} 

if (ddtd. getKeyField ( ) . equals (paramKey) ) { 
primaryKeyName=paramKey; 
primaryKeyVal=par amVal ; 
continue; 

} 

if ( ! paramVal . startsWith ( " to_date" ) ) { 

paramVal=" ' "+SQLUtil .processSingleQuote (paramVal) +" ' " 

) 

qStrBuff. append (paramKey+"="+paramVal4-", ") ; 

> 

// Check for MODIFIED_BY_USERS_KEY, and LAS T_MOD I FIE D_DATE 
Integer usersKey= (Integer) session. getAttribute ("usersKey") ; 

if (ddtd.findColumnName( ,, MODIFIED_BY_DSERS_KEY n ) != 0) { 
qStrBuff . append ("MODI FIED_BY_USERS_KEY="+usersKey+", n ) ; 

) 

if (ddtd.findColumnName( ^ IlAST_MODIFIED_DATE ,, ) !=» 0) { 
qStrBuff .append ( w LAST_MODIFIED_DATE=SYSDATE, " ) ; 

> 

qStrBuff . deleteCharAt (qStrBuff . length ( ) -1 ) ; 
qStr="UPDATE n +tableName+ n SET n +qStrBuff+" WHERE "+ 
primaryKeyName+ "=" +pr imaryKeyVal ; 



if ( !doProcess.equal3 ("filter") ) { 
//DBConnectionManager connMgr = 
DBConnectionManager. get Instance () ; 

//Connection con=connMgr .getConnection (dbConnName) ; 

//Connection con= (Connection) 
pageContext. getAttribute ("globalCon") ; 
stmt = con.createStatement () ; 
stmt . executeUpdate (qStr ) ; 
//stmt . close ( ) ; 
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StackEle^Jt se= (StackElement) 1 .getJCte|gt^pr^ 

se . setSearchString (null) ; 

se - setSearchParams (new Hashtable () ) ; 

} 

5 

// hit the last item in the save list or go back to view 

// LinkedList 1= (LinkedList) session. getAttribute ("LinkedList") ; 

// String returnTable= (String) session. getAttribute ("returnTable") ; 
10 /* 

if (doProcess. equals ("filter")) { //II 1 — null I I l.size() — 
0 || returnTable != null) { 
if (returnTable 1= null) { 

pageContext. forward ("/Browse. jsp?tableName="+returnTable+ n & n + 

15 

TableDescriptorDisplay .getNoCache (TableDescriptorDisplay . ForUR 
L) ) ; 

> 

else { 

20 pageContext . forward ( " /Browse . j sp? tableName^" +tableName+" & "+ 

TableDescriptorDisplay. getNoCache (TableDescriptorDisplay. ForUR 
L)); 

} 

25 } 

else { 
*/ 

// build return 

StackElement se= (StackElement) 1 . getLast ( ) ; 
30 String mode=null; 

String stackLevel=null; 

String masterColumn=se.getMasterColumn () ; 
tableName=se . getTableName ( ) ; 
// if ( (doProcess .equals ("insert") ) && 
35 ( (session. getAttribute ("powerAdd") != null) && (((String) 

session* getAttribute ("powerAdd") ) .equals ("Yes") ) ) ) { 
Debug. doLog ("powerAdd: "+request .getParameter ("powerAdd") , 
Debug. INFO) ; 

if ( (doProcess . equals ("insert") ) && 
40 ( (request .getParameter ("powerAdd") != null) && (((String) 

request . getParameter ( "powerAdd" ) ) . equals ( "Yes " ) ) ) ) { 

mode = "add"; // se . getMode ( ) ; 

stackLevel = "8"; 

se . setFormValues (new Hashtable () ) ; 

45 

response. sendRedirect ("/Schemalive/AddEditForm. jsp?tableName=*"+se 
. getTableName ( ) + 

"&keyValue="+se . getCurrentKey () + 
" &mode= " +mode+ 
50 "&powerAdd=Yes"+ 

" &stackLevel=@ &unq="+unqStr 

); 

return; 

) 

55 else if ((l.sizeO < 2) 1 | (doProcess .equals ("filter") ) ) { 

mode • "browse"; 
stackLevel = "6 n ; 

) 
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else { 

se= (StackEleraent) 1 .get (1 . size () -2) ; 
mode = se.getMode () ; 
stackLevel = "-"; 

5 if (( !mode. equals ("browse") ) && (masterColumn — null)) { 

DataDictionaryTD ddtd = dd.getDataDictionaryTD (tableName) ; 

// Insert proper value into saved return field entry 
String keyFieldName = ddtd.getKeyFieldO ; 
10 Hashtable formValues » (Hashtable) ( (StackElement) 

l.get (1. size ()-2) ) .getFormValues () ; 
Enumeration formValEnum =* formValues . keys () ; 
while (formValEnum.hasMoreElements () ) { 

String keyVal - (String) formValEnum. nextEleraent () ; 
15 if (( (String) formValues. get (keyVal) ) .equals ("0") ) { 

formValues .put (keyVal, par amHash. get (keyFieldName) ) ; 
break; 

} 

) 

20 } 

) 

String forwardPage= 

(mode . equals ( "browse" ) ) ? "Browse . j sp" : " AddEdit Form . j sp" ; 
pageContext . forward ("/ n +forwardPage+"?tableName= s "+se . getTableName ( ) + 
25 " &keyValue= n +se . getCur rentKey ( ) + 

n &mode="+mode+ 

w &stackLevel= n +stackLevel+ n &unq="+unqStr) ; 

} 

%> 

30 

<% 

) 

catch (SQIiException sqle) { 
sqle.printStackTrace () ; 
35 throw sqle; 

> 

finally { 
try { 

if (rs != null) rs. close () ; 
40 if (stmt != null) stmt. close () ; 

if (con != null) con. close () ; 

} 

catch (SQLException sqle) { 
sqle . printStackTrace ( ) ; 

45 } 
) 

%> 

<%@ include f ile«"comraon/GlobalFooter. jsp" %> 

50 

Schemalive/DoViewGenerator . jsp 

<%! 

// $Revision: 2.3 $ 
55 // $Date: 2001/10/30 01:35:53 $ 

%> 

<%! public static final String ver3ion_ViewGenerator _jsp="$Revision: 2.3 $ n ; 
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<%@ page import="dbUtils. *" %> 
<%e page import="HTMLUtils . * n %> 
5 <%@ page import="sessionUtils . *" %> 
<%@ page import^" java. sql . * n %> 
<%@ page import=" java.util. * n %> 

<% 

10 DataDictionary dd=*DataDictionary .get Instance ("cnslt_crm n , "anymore") ; 

%> . 
<HTML> 

<BODY bgcolor=» n #ffffff"> 

<% 

15 if (request . getParameter ("tableName") != null) { 

DataDictionaryTD ddtd= 

dd.getDataDictionaryTD (request. getParameter ("tableName") ) ; 
if (ddtd != null) { 

new ViewGenerator (ddtd) ; 



20 %> 
<% 

25 %> 
<% 



<h3>Built View for: <%= ddtd.getTable () %X/h3> 



} 

else { 



<h3><%= request. getParameter ("tableName") %> 
is a bad table name!</h3> 



) 



<h4>Built View for: <%= ddtd.getTable () %></h4> 



30 ) 

else { 

Set ddtdSet = dd.tables(); 
Ob j ect [ ] ddtdAry » ddtdSet . toArr ay ( ) ; 
Arrays . sort (ddtdAry) ; 
35 for (int i=0; KddtdAry. length; i++) { 

DataDictionaryTD ddtd=dd.getDataDictionaryTD ( (String) ddtdAry [i] ) , 
if (ddtd.getTDTypeO = TableDescriptor .VIEW) < 
continue; 

} 

40 ViewGenerator vg = new ViewGenerator (ddtd) ; 

%> 

<% 

45 > 

%> 

</BODY> 
</HTML> 

50 S chema live /Error 500 . jsp 

<%! 

// $Revision: 2.4 $ 
// $Date: 2001/10/30 08:26:33 $ 

55 %> 

<%@ page isErrorPage-"true" %> 
<%e page import= n dbOtils .*" %> 



} 
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<%@ page import="HTMflWils . *" %> 
<%§ page import="session0tils. *" %> 
<%6 page import="java.sql. * n %> 
<%e page import=" java.util . *" %> 
5 <%@ page import=" java.io. *" %> 
<%e page impor t=" common. *" %> 

<%! public static final String version_Error500 _jsp = n $Revision: 2.4 $ n ; %> 
10 <%@ include file="common/EntryPoints. jsp" %> 
<% 

response. setHeader( "pragma" , "no-cache") ; 
response . setHeader ( "Expires" , 
15 new java.util. Date (new java.util . Date () .getTime {) -100) . toString ()) ; 

String unqStr= 

TableDescriptorDisplay.getNoCache (TableDescriptorDisplay. For JavaScript) ; 
session. setAttribute ("unq", unqStr) ; 
Connection con=mull; 
20 Statement stmt=null; 

ResultSet rs=null; 
try { 

con^SQLUtil . makeConnection ( ) ; 

%> 

25 

<%@ include file="common/GlobalHeaderVARS . jsp" %> 
<HTML> 

<HEAD> 

<TITLE>Schemalive</TITLE> 
30 <%8 include f ile=" common/GlobalHeader Javascript . jsp" %> 
</HEAD> 

<% 

int sequence=ManageSession . updates equence (session) ; 

35 %> 

<BODY bgcolor="#FFFFFF" onLoad="history. forward (1) ; "> 

<%§ include f ile="common/GlobalHeaderHTML. jsp" %> 
40 <%e taglib uri="/WEB-INF/taglib/view. tld" pref ix="view" %> 

<%e taglib uri="/WEB-INF/taglib/ stack. tld" prefix="sessionOtils" %> 



<view:setVars defaultEntryPoint="<%= entryPoints [0] %>" dbName="<%= 
45 dbName %>" dbConn= w <%= dbConnName %>"> 

<! — sessionUtils: stack tableName="<%= origTableName %>" mode="browse" 
• stackLevel="<%= stackLevel %>" database="<%= dbName %> M dbConn="<%= 
dbConnName %>" — > 
<% 

50 // Stacklnfo: %= stacklnfo % 

%> 

<! — /sessionUtils: stack — > 

<br> 

<%- 

55 TableDescriptorDisplay. displayStack( (LinkedList) 

session. getAttribute ("sessionStack") ,unqStr) 

%> 

<hr> 
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<TABLE width="3PW% n cellpadding="0" cellspfelgjf^^lj^ 
<tr valign="bottora" align= n right n > 

<TD valign="bottom"xfont f ace="ARIAL, HELVETICA" size="4 ">THERE 
HAS BEEN AN <b> 

INTERNAL SERVER ERROR</b> 
< ! — img src=" images/logo-width. gif " — > 
</font></TD> 
</TR> c 
</TABLE> 
<hr> 

<br><br> 

<font f ace="ARIAL, HELVETICA" size="4"> <center> 

finbsp; snbsp; finbsp; finbsp; finbsp;   finbsp;   finbsp;     finbsp 
;     

PLEASE CALL THE <b>HELP DESK</b> WITH THE FOLLOWING INFORMATION: <p> 



  finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp 
; finbsp; finbsp; 

<b><%= new java.util.Date () .toStringO %></bxbr> 

finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp; finbsp 
; finbsp; finbsp; 

<b><%« exception %></b><br> 
<pre> 

<% 

if (0 > exception . toString ( ) . indexOf ( "NOT AUTHORIZED") ) { 
By teArrayOutput Stream ostr = new ByteArrayOutputStream { ) ; 
exception. printStackTrace (new PrintStream (ostr) ) ; 
out .print (ostr) ; 

} 

%> 

</pre> 



</center> 
</view : setVars> 
<SCRIPT> 

setupNavHelp () ; 
</SCRIPT> 
</BODY> 
</HTML> 

<% 

} 

catch (SQLException sqle) { 
sqle.printStackTrace () ; 

} 

finally { 
try { 

if (rs != null) rs. close () ; 

if (stmt != null) stmt .close () ; 

if (con != null) con. close () ; 

} 

catch (SQLException sqle) ( 
sqle . printStackTrace ( ) ; 
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) 

} 

System.gcO ; 

%> 

5 

<%@ include file="common/GlobalFooter . jsp" %> 
Schemalive/ExpiredSession . jsp 
10 <META HTTP-EQUIV="Refresh" CONTENT="30; URL=/Schemalive/AddEditForm. jsp"> 
<% 

// $Revision: 2.4 $ 

// $Date: 2001/10/30 08:26:33 $ 

15 %> 

<%! public static final String version_ExpiredSession_j sp » n $Revision: 2-4 
$"; %> 

20 <%@ page import="dbUtils. *" %> 
<%e page import="HTMLUtils . *" %> 
<%@ page import-" sess ionUtils . *" %> 
<%6 page import=" java. sql. *" %> 
<%@ page import=" java.util . *" %> 

25 

<%e page import=" common.*" %> 
<% 

String unqStr= 

30 TableDescriptorDisplay.getNoCache (TableDescriptorDisplay. For JavaScript) ; 

session. setAttribute ("unq", unqStr) ; 

Connection con=null; 

Statement stmt=null; 

ResultSet rs=null; 
35 try { 

con~SQLUtil .makeConnection ( ) ; 

%> 

<% response. setHeader ("pragma", "no-cache ") ; %> 
40 <% response . setHeader ("Expires", new java.util. Date (new 
java.util. Date () .getTime () -100) . toString () ) ; %> 

<%8 include file="common/GlobalHeaderVARS. jsp" %> 
<HTML> 
45 <HEAD> 

<TITLE>Schemalive</TITLE> 

<%e include file="common/GlobalHeader Javascript .j sp" %> 
</HEAD> 

50 <! — %@ include f ile="common/GlobalHeaderVARS . jsp" % — > 

<%<? include file«"common/EntryPoints. jsp" %> 

<% 

int sequence=ManageSession.updateSequence (session) ; 

55 %> 

<BODY bgco 1 or = " # FFFFFF " onLoad=" history, forward (1) "> 
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<%@ include file«^Rmmon/GlobalHeaderHTML. jsPO>8 

<%e taglib uri="/WEB-INF/taglib/view. tld" pref ix="view rf %> 

<%@ taglib uri="/WEB-INF/taglib/stack. tld" pre£ix="sessionUtils" %> 



<view:setVars def aultEntryPoint="<%= entryPoints [0] %>" dbNarae="<%« 
dbName %> n dbConn="<%= dbConnName %> n > 

<! — sessionUtils: stack tableName="<%= origTableName %>" mode="browse" 
stackLevel="<%= stackLevel %>" database= n <%= dbName %>" dbConn="<%= 
dbConnName %>" — > 
<% 

// Stacklnfo: %= stacklnfo % //*****MPK (temporary delta) 

%> 

<! — /sessionUtils: stack — > 

<br> 

<%= 

TableDescr iptorDi splay. displayStack ( (LinkedList) , 
session. getAttribute ("se ssionStack") ,unqStr) 

%> 

<hr> 

< TABLE width="100% n cellpadding="0" cellspacings "0"> 
<tr valign="bottom" align=" right "> 

<TD valign="bottom"Xfont face="ARIAL, HELVETICA" size="4">YOUR 
SESSION HAS <b> 
EXPIRED</b> 

< J — img s rc= " images / logo-width . gi f " — > 
</font></TD> 
</TR> 
</TABLE> 
<hr> 

<br><br> 

<font f ace=" ARIAL, HELVETICA" size=M"> 
<center> 

THE SERVER <b>NO LONGER RETAINS</b> ANY INFORMATION<BR> 
REGARDING <b>YOUR</b> (APPARENTLY IN-PROGRESS) <BR> 
<b>WORKING SESSION</b> 
<p> 

IT IS THEREFORE NECESSARY THAT YOU <b>RESTART</b> YOUR SESSION<BR> 
BY DOING <b>ANY ONE OF THE FOLLOWING: </b> 

<P> 
<BR> 

CHOOSE TO SEARCH OR BROWSE A TABLE FROM THE <b>HEADER SECTION</b> 
(ABOVE) </b><BR> 
<BR> 

<b>WAIT</b>, AND THE SYSTEM WILL RESTART AUTOMATICALLY IN <b>30 

SECONDS</bXBR> 

<BR> 

CLICK <a href="/Schemalive/AddEditForm. jsp">HERE</a> TO RESTART THE 

SYSTEM <b>IMMEDIATELY</b><BR> 

<BRXBRXBR> 

<P> 

IF YOU HAVE ANY QUESTIONS, PLEASE CALL THE <b>HELP DESK</b> 
</center> 
</view : setVars> 
<SCRIPT> 

setupNavHelp () ; 
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</SCRIPT> 
</BODY> 
</HTML> 

5 <% 

} 

catch (SQLException sqle) { 
sqle.printStackTrace () ; 

> 

10 finally { 

try { 

if (rs 1= null) rs .close () ; 

if (stmt != null) stmt. close () ; 

if (con != null) con. close () ; 

15 } 

catch (SQLException sqle) { 
sqle .printStackTrace ( ) ; 

) 

) 

20 System. gc(); 

%> 

<%e include f ile="common/GlobalFooter. jsp" %> 
25 Schema 1 ive/OutOf Sequence . j sp 

<META HTTP-EQUIV="Refresh n CONTENT="30;URL=/Schemalive/AddEditForm. jsp n > 
<% 

30 // $Revision: 2.4 $ 

// $Date: 2001/10/30 08:26:33 $ 

%> 

<%! public static final String version_ExpiredSession_jsp = n $Revision: 2-4 
35 $"; %> 

<%e page import** "dbUtils . *" %> 

<%e page import ="HTMLUti Is. *" %> 

<%@ page import-" sessionUtils . *" %> 

40 <%@ page import=" java. sql . *" %> 

<%@ page import= w java.util . * n %> 

<%8 page import= n common. *" %> 

45 <% 

String unqStr= 

TableDescriptorDisplay.getNoCache (TableDescriptorDisplay. For JavaScript) ; 
session. setAttribute ("unq",unqStr) ; 
Connection con=null; 
50 Statement stmt=null; 

ResultSet rs=null; 
try { 

con=SQLUtil.makeConnection() ; 

%> 

55 

<% response. setHeader ("pragma", "no-cache") ; %> 

<% response. setHeader ("Expires", new java.util. Date (new 

java.util.Date () .getTime () -100) . toString () ) ; %> 
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<% 

int sequence=ManageSession.updateSequence (session) ; 
%> c-> 
5 <%@ include f ile= n common/GlobalHeaderVARS -jsp" %> 
<HTML> 

<HEAD> 

<TITLE>Schemalive</TITLB> 

<%@ include f ile= n common/GlobalHeader Javascript -jsp" %> 
10 </HEAD> 



<! — %@ include file="coinmon/GlobalHeaderVARS. jsp" % — > 
<%@ include f ile=" common/ En tryPoints. jsp" %> 



<BODY bgcolor=" #FFFFFF" onLoad="history . forward (1) "> 

20 <%@ include f ile="common/GlobalHeaderHTML. jsp" %> 

<%@ taglib uri="/WEB-INF/taglib/view. tld" pref ix="view" %> 

<%@ taglib uri="/WEB-INF/ taglib/ stack. tld n pref ix="sessionUtils" %> 



25 <view:setVars def aultEntryPoint="<%= entryPoints [0] %>" dbName="<%= 

dbName %> M dbConn= n <%= dbConnName %>"> 

<! — sessionUtils: stack tableName="<%= origTableName %>" mode="browse" 
stackLevel= n <%= stackLevel %>" database="<%= dbName %>" dbConn="<%= 
dbConnName %> n — > 
30 <% 

// Stacklnfo: %= stacklnfo % 

%> 

<! — /sessionUtils: stack — > 
<br> 
35 <%= 

TableDescriptorDisplay.displayStack( (LinkedList) 
session . getAttribute ( "sessionStack" ) , unqStr) 

%> 

<hr> 

40 <TABLE width="100%" cellpadding="0" cellspacings" 0"> 

<tr valign=" bottom" align=" right "> 

<TD valign="bottom"Xfont face="ARIAL, HELVETICA" size="4">YOU 
HAVE GENERATED A <b> 

SESSION- SEQUENCE ERROR</b> 
45 <l — img src=" images /logo- width.gif" — > 

</font></TD> 
</TR> 
</TABLE> 
<hr> 

50 

<brxbr> 

<font f ace«="ARIAL, HELVETICA" size="4"> 
<center> 

55 THE SERVER HAS DETECTED AN <b> ILLEGAL PAGE TRANSITION, </b> 

WHERE IN <BR> 

<b>YOUR BROWSER</b> HAS SUBMITTED A PAGE <b>0THER THAN</b> THE LAST 
PAGE<BR> 
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THAT <b>THEWRVER</b> HAD PREVIOUSLY P^^^yi3^^&, 

<P> 

THIS CAN RESULT FROM DOING A <b> 1 REFRESH 1 </b> (OR 
<b> ' RELOAD 1 < /b» , <BR> 
5 FROM TRYING TO USE A <b> ' FAVORITE 1 </b> (OR <b> •BOOKMARK' </b>) , <BR> 

FROM USING THE <b>'BACK' BUTTON</b> ON YOUR BROWSER, OR BY<BR> 
<b>DOUBLE-CLICKlNG</b> OR <b>EXECUTING MULTIPLE CLICKS</b> WHILE 
SUBMITTING A PAGE 
<P> 

10 IT IS THEREFORE NECESSARY THAT YOU <b>RE S T ART< / b> YOUR SESSION<BR> 

BY DOING <b>ANY ONE OF THE FOLLOWING: </b> 

<P> 
<BR> 

CHOOSE TO SEARCH OR BROWSE A TABLE FROM THE <b>HEADER SECTION</b> 
15 (ABOVE) </b><BR> 
<BR> 

<b>WAIT</b>, AND THE SYSTEM WILL RESTART AUTOMATICALLY IN <b>30 

SECONDS</bXBR> 

<BR> 

20 CLICK <a href ="/Schemalive/AddEditForm.j sp n >HERE</a> TO RESTART THE 

SYSTEM <b>IMMEDIATELY</b><BR> 
<BRXBRXBR> 
<P> 

IF YOU HAVE ANY QUESTIONS, PLEASE CALL THE <b>HELP DESK</b> 
25 </center> 

</view : setVars> 
<SCRIPT> 

setupNavHelp () ; 
</SCRIPT> 
30 </BODY> 
</HTML> 

<% 

} 

35 catch (SQLException sqle) { 

sqle - print StackTr ace ( ) ; 

} 

finally { 
try { 

40 if (rs !- null) rs. close () ; 

if (stmt != null) stmt. close () ; 
if (con != null) con. close () ; 

) 

catch (SQLException sqle) { 
45 sqle . printStackTrace ( ) ; 

> 

} 

System. gc () ; 

%> 

50 

<%@ include f ile= n common/GlobalFooter. jsp w %> 
Schemalive / showSession . j sp 
55 <% 

// $Revision: 2.4 $ 

// $Date: 2001/10/30 08:26:33 $ 

%> 
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<%@ page import="sessionUtils . *" %> 
<%@ page import^" java.util. *" %> 
5 <HTML> 

<HEADXTITLE>Session Values</TITLE></HEAD> 
<BODY bgcolor="#ffffff"> 

<% 

if (request -getParameter ("suicide") != null && 
10 request. getParameter ("suicide") .equals ("yes") ) 

{ 

session. invalidate () ; 



%> 

15 <% 



%> 



%> 



<H1>AARRRGHHH / I'm dead!</Hl> 



) 

else { 

LinkedList 1= (LinkedList) session. getAttribute ("sessionStack") ; 
if (request. getParameter ("pop") != null && 1 != null) { 
20 1 .remove (Integer. parselnt (request .getParameter ("pop") ) ) ; 

} 

Listlterator li=null; 
if (1 != null) { 

li»l. listlterator (0) ; 

25 } 



< TABLE border=l> 



<% 

30 int index=0; 



while (li!=null && li.hasNext () ) 



<TR> 

<TD> 

35 <TABLE border=l> 

<% 

StackElement se= (StackElement) li .next () ; 

Hashtable f ormValues=se . getFormValues ( ) ; 

Hashtable searchParams=se . get Search Par ams ( ) ; 
40 String mode=se . getMode ( ) ; 

String tableName=se .getTableName ( ) ; 

String searchString=se . getSearchString ( ) ; 

String currentKey=se . getCurrentKey ( ) ; 

String f ocusField^se . getFocusField ( ) ; 
45 String masterColumn^se. getMasterColumn ( ) ; 

%> 

<TRXTD> 

tableName 
</TDXTD> 

50 <%= tableName %> 

</TD> 

<td rowspan=8 valign=center align=center> 

<A HREF="/Schemalive/showSession. jsp?pop=<%= index++ 
%>">pop</A> 
55 </td></TR> 

<TRXTD> 
mode 

</TDXTD> 
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<%= mode %> 
</TDX/TR> 
<TR><TD> 

searchString 
</TDXTD> 

<%= searchString %> 
</TDX/TR> 
<TR><TD> 

currentKey 
</TDXTD> 

<%= currentKey %> 
</TDX/TR> 
<TRXTD> 

focusField 
</TDXTD> 

<%= focusField %> 
</TDX/TR> 
<TRXTD> 

masterColumn 
</TDXTD> 

<%= masterColumn %> 
</TDX/TR> 
<TRXTD> 

searchParams 
</TDXTD> 

<TABLE border=l> 

<TRXTH>Key</THXTH>Values</THX/TR> 

if (searchParams != null) { 

Enumeration searchParamKeys 23 
searchParams . keys ( ) ; 

while ( searchParamKeys . hasMoreElements ( ) ) { 
String searchParamKey= (String) 
searchParamKeys . nextElement ( ) ; 
String searchParamVal= 

(String) searchParams .get (sear chParamKey) ; 

<TRXTDX%= searchParamKey %></TD> 
<TDX%= searchParamVal %></TD></TR> 

} 

} 

</TABLE> 
</TDX/TR> 
<TRXTD> 

formValues 
</TDXTD> 

< TABLE border=l> 

<TR><TH>Key</THXTH>Values</THX/TR> 

if (formValues != null) { 

Enumeration formValueKeys= formValues - keys ( ) ; 
while (f ormValueKeys . hasMoreElements ( ) ) { 
String f ormValueKeys (String) 
f ormValueKeys . nextElement ( ) ; 
String f ormValueVal^ 

(String) formValues . get (formValueKey) ; 
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%> 

<TRXTD><%= formValueKey %X/TD> 
<TD><%= formValueVal %></TD></TR> 

<% 

5 } 

} 

%> 

</TDX/TR> 
</TABLE> 
10 </TABLE> 
</TD> 
</TR> 

<TR>< TABLE border=l> 

<% 

15 } 

Enumeration session Vars=ses sion. getAttributeNames () ; 
while (sessionVars.hasMoreElements () ) { 

String sessionVar" (String) sessionVars .nextElement () ; 
if (session Var. equals ( "sessionStack") ) { 
20 continue; 
} 

Object sessionVal=session.getAttribute (sessionVar) ; 

%> 

<TRXTD><%= sessionVar %></TDXTD><%= sessionVal %></TDX/TR> 

25 <% 

} 

%> 

</TABLE> 
</TABLE> 

30 <% 

> 

%> 

</BODY> 
</HTML> 

35 

Schema 1 ive/ common/Emp tyPar amChe ck . j sp 

<%! 

// $Revision: 2,3 $ 
40 // $Date: 2001/10/30 01:35:53 $ 

%> 

<% 

if (! request. get ParameterNames () .hasMoreElements () ) { 
45 String headerUnqStr= 

TableDescriptorDisplay.getNoCache (TableDescriptorDisplay.ForJavaScri 
Pt); 

session. removeAttribute ("sessionStack") ; 
50 session . removeAttribute ( n headerMode n ) ; 

session . setAttribute ( "unq" , headerUnqStr ) ; 

response - sendRedirect ( n /Schemalive /Browse . j sp?unq= n +headerUnqStr) ; 
return; 

} 

55 %> 

<%! public static final String version_common_EmptyParamCheck_jsp » 
"$Revision: 2.3 $ n ; %> 
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Schemalive/common/EntryPoints . jsp 

<%! 

5 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

%> 
<% 

String [ ] entryPoints= 
10 { 

"OPPORTUNITY" , 
n CONTAC T_E VENT ,f , 
" PEOPLE " 

}; 

15 %> 

Schemalive/common/GlobalFooter . jsp 

<%! public static final String version^ common_GlobalFooter_jsp - "$Revision: 
20 2.3 $"; %> 

S enema 1 i ve / common / GlobalHeaderHTML .jsp 

<%! 

25 II $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

%> 

<FORM name="viewTable"> 

<TABLE border="0" cellpadding="0" cellspacing="0" width="100%"> 
30 <TR><TD align="right" valign="top"> 

Browse 

<input type="radio" narae=" header Mode" value="Browse. jsp" 
onClick=" document. viewT able. tableName. options [0] .text= 
'Select table to browse';" 

35 <% 

if (headerMode . equals ( "Browse . j sp" ) ) { 

%> 

checked 

<% 

40 } 

%> 
> 

Search 

<input type="radio" name= n headerMode" value=»"AddEdit Form. jsp" 
45 onCl ick= " document. viewT able. tableName .options [0] .text= 

•Select table to search';" 

<% 

if (headerMode . equals ( " AddEditForm - j sp" ) ) { 

%> 

50 checked 
<% 

} 

%> 
> 

55 

<% 

// get balloon help for quickLinks 

Balloon bl = bh.getNavBalloon ("quickXink") ; 
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Balloon 3B*= bh.getNavBalloon ("quicpE^)^ 1 ^ 

//SELECT used to go below 
%> 

5 <SELECT name= n tableName" 

onChange=*"showView (this .options [this . selectedlndex] .value) ; n <% 
if (b2!=null) { %> oriMouseOver=="setHang ( ■<%= b2.getID() 
%>' , event, this, 'navLink 1 ) ; return true; n onMouseOut="clearHang () ; 
return true;" onClick="clearHang {) ; " <% } %» 

10 <OPTION value="doNothing">Select table to <%= 

(headerMode . equals ( "Browse . j sp" ) ? "browse" : "search" ) %> 

<% 
/* 

Set tables=dd . tables ( ) ; 
15 Ob j ect [ ] tableSet=tables . toArray ( ) ; 

Arrays . sort (tableSet) ; 

for (int i=0; KtableSet. length; i++) { 

if ( ((String) tableSet [i]) .endsWith ("_VIEW") ) { 
20 continue; 

} 

else if (( (TableDescriptor)dd.getDataDictionaryTD( (String) 
tableSet [i] )) .getTDTypeO == TableDescriptor .VIEW) { 
continue ; 

25 } 
*/ 

for (int i=0;i<headerTableList .length; i++) { 
%> 

<OPTION value="<%= headerTableList [i] %>"> 
30 <%= TableDescriptorDisplay.getDisplayLabel (headerTableList [i] , 

TableDescriptorDisplay . AllOpper) %> 

<% 
> 

%> 

35 </SELECT> 

<%// link used to go here%> 

<% if (b2 != null) { %> <A HREF="" STYLE="color : <%= DARKCELL %>; 

text-decoration: none;" onMouseOver="setHang ( '<%= b2.getID() 

%>", event, this, 'navLink' ) ; return true;" onMouseOut="clearHang () ; 
40 return true;" onClick="processAsterisk () ; return false;" ><sup> 

<font size=+l>*</fontx/supx/A> <% } %> 
</TD> 
<% 

for (int i=0;i<entryPoints. length; i++) { 
45 if (Arrays. binary Search (header TableList, entry Point s [i] ) >= 0) { 

%> 

<TD valign=»"top"> 

<nobr>  snbsp; <a href =" j avascript : showView ( ■ <%= 
entryPoints[i] %>')" onMouseOver="showStatus ( ' <%= 

50 TableDescriptorDisplay .getDisplayLabel (entryPoints [i] 

, TableDescriptorDisplay. AllDpper) %>'); <% if (bl!=null) { %> 
setHang('<%= bl.getlDO %>' f event, this, 'navLink 1 ) ; <% } %> return 
true;" onMouseOut=" window. status=' 1 ; <% if (bl!=null) { %> 
clearHangO; <% } %> return true;" onClick="clearHang () ; return 

55 true;"><%= 

TableDescriptorDisplay. getDisplayLabel (entryPoints [i] , TableDescri 
ptorDisplay.AHUpper) %></a></nobr> 
</TD> 
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<% 

} 

} 

%> 

5 <TD width="100% n valign= n top w ximg s rc= "images/ logo. gif " 

align="right"></TD> 
</TR> 
</TABLE> 
</FORM> 

10 <%! 

public static final String version_conunon_GlobalHeaderHTML_jsp = 
"$Revision: 2.3 $"; 

%> 

15 Schemalive/common/GlobalHeader Javascript . jsp 

<%! 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

20 %> 
<% 

java.util.Date beginDD = new java.util .Date () ; 

25 DataDictionary dd = DataDictionary.getlnstance (dbName f dbConnName) ; 

BalloonHelp bh=BalloonHelp . get Instance ( ) ; 

// check for REMOTE__OSER match in database 
30 Integer usersKey = (Integer) session. getAttribute ("usersKey") ; 

if (usersKey null) { 

// String remoteUser=request .getRemoteUser () ; 
String remoteUser= (request . getRemoteUser ( ) == 
null) ?"DEVONSHIRE\\mpk":request. getRemoteUser () ; 
35 String qStr="SELECT USERSJKEY FROM USERS WHERE UPPER (LOG INJLD) =' n + 

remoteUser. toOpperCase () + n • n ; 

if (Debug.areDebugging) { 

Debug . doLog ( "GHH : w +qStr , Debug . INFO) ; 

40 } 

//Connection myCon = SQLUtil . makeConnection ( ) ; 
Statement myStmt=null; 
ResultSet myRs=null; 
45 try { 

myStmt = con . createStatement ( ) / 
myRs = myStmt . executeQuery (qStr) ; 
if (myRs. next () ) { 

usersKey=new Integer (myRs . getString (1) ) ; 
50 session . setAttribute ( "usersKey" , usersKey) ; 

> 

) 

catch (SQLException sqle) { 
sqle. prints tackTraceO ; 

55 } 

finally { 

myRs. close () ; 
myStmt . close ( ) ; 
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if (Debug. areDebugging) { 

Debug. doLog("remoteUser= n +remoteUser+"/ usersKey= 
5 "+usersKey, Debug . INFO) ; 

) 

} 

java.util.Date endDD = new java.util.Date () ; 

10 

/* 

String headerSelectStr » "SELECT SECURITY_TABLE.Se cur ity_Table_Name "+ 
"FROM SECURITY_GROUPJTABLE, SECURITY_GROUP_USER, SECURIT YJTABLE , w + 
"USERS WHERE SECURITY_GROUP_TABLE .Can_Browse_Flag = 1 AND "+ 
15 "USERS. Users_Key = SECURIT Y_GROUP_USER . Users_Key AND "+ 

"SECuTUTYJ5ROUP_USER.Security_Group_Key « "+ 
"SECURITY_GROUPJTABLE.Security_Group_Key AND "+ 
"SECURITY J3ROUP_TABLE.Security_Table_Key = "+ 

"SECURITY__TABLE.Security_Table_Key AND USERS . Users_Key = n +usersKey; 
20 */ 

String headerSelectStr = "SELECT Security_Table_Name FROM SECURITY_JTABLE 
WHERE Security_Table_Key IN "+ 

" (SELECT Security_Table_Rey "+ 
25 // " FROM PEOPLE, STAFF, USERS, SECURITY_GROUP_USER, 

SECURITY_GROUP_TABLE "+ 

FROM PEOPLE, USERS, SECURIT Y_GROUP_USER, SECURITY_GROUP_TABLE "+ 
WHERE "+ 



PEOPLE. Act ive_Flag <> 0 AND "+ 
30 // " PEOPLE. People_Key = 

STAFF . People_Key AND "+ 

// " STAFF. Staff_Key = USERS . Staff _Key 

AND "+ 

" PEOPLE . People_Key = USERS . People_Key AND "+ 

35 " USERS. UsersJKey » SECURITY_GROUP_USER. Users_Key AND "+ 



" SECURITY_GROUP_USER.Security_Group Key = 
SECURITY_GROUP_TABLE.Security_Group_Key AND "+ 
" CanJBrowseJFlag <> 0 AND "+ 

" SECURITY_GROUPJJSER.Users_Key = "+usersKey+" ) ORDER BY 1"; 

40 

Statement myStmt = 

con . creates tatement (Result Set . TYPE_SCROLL_INSENSITI VE, Result Set . CONCUR_REA 
DJDNLY) ; 

ResultSet myRs = myStmt . executeQuery (headerSelectStr) ; 
45 myRs. last () ; 

headerTableList = new String [myRs . getRow ()] ; 

myRs.beforeFirst () ; 

int headerTableIndex=*0; 

while (myRs . next () ) { 
50 . headerTableList [headerTableIndex++ ] =myRs . get St ring { 1 ) ; 

} 

myRs. close () ; 
myStmt .close () ; 

55 String headerMode = request . getParameter ("headerMode") ; 

if (headerMode == null I I headerMode . equals ("") ) { 

headerMode= (String ). session. getAttribute ("headerMode") ; 
if (headerMode == null) { 
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headerMode=^^owse . j sp " ; 

} 

} 

session . setAttribute ( "headerMode" , headerMode) ; 

5 

String checkHeader = request . getParameter ("header") ; 
if (checkHeader != null && checkHeader .equals ("true") ) { 
session . removeAttribute ( "sessionStack" ) ; 

} 

10 %> 

<style type=" text/ ess "> 

<! — 

.balloon {border-width: thin; border- style: groove; 

border- color: <%« LITECELL %>; 
15 position: absolute; background-color: #877887; 

padding: 3; layer-background-color: #877887; 

font-size: x-small; line-height: 120%; text-align: left; 

font-family: sans-serif; font-weight: bold; 

visibility: hidden} 
20 . isTip {text-decoration: none; color: yellow;} 

. notDecorated {text-decoration: none; color: black; cursor: default} 

— > 
</style> 

<SCRIPT Language="JavaScript"> 
25 var agt=navigator . userAgent . toLowerCase ( ) ; 

var appVer « navigator .appVers ion. toLowerCase () ; 
var is_minor = parseFloat (appVer) ; 
var is_major = parselnt (is_minor) ; 

30 var is_nav = ( (agt .indexOf ( 'mozilla 1 ) !=-l) && 

(agt. indexOf (' spoof er 1 )==-!) && 

(agt. indexOf ('compatible') == -1) && 

(agt. indexOf ( 'opera' )==-l) && 

(agt . indexOf (' webtv 1 ) -=-1 )) ; 
35 var isNav4up = (is_nav && (is_major >= 4)); 

var hangDocObj=null; 
var hangID=null; 
var hangType=null; 
40 var hangX=null; 

var hangY=null; 
var timeID=null; 

var columnWidth=50; 
45 var columnLef t=l; 

var tableTop=0; 

function keyPress ( ) 
{ 

50 if (hangID ! = null) { 

clearHangO ; 

} 

} 

55 function mouseDown() 

{ 

mouseUp () ; 

} 
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function mouseUpO 
{ 

if (hangID != null) { 
clear Hang () ; 

} 

return true; 



function processAsteriskO { 
if (isNav4up) { 

if (document . layers [hangID] 1= null && 

document . layers [hangID] . visibility— "hide" ) { 
showHelp ( ) ; 

} 

else { 

clearHang ( ) ; 

} 

} 

else { 

if (document .all [hangID] != null && 

document . all [hangID] . style . visibility="hidden" ) { 
showHelp () ; 

) 

else { 

clearHang () ; 

) 

> 

} 

function makeBalloon (id, message, width, type) 
{ 

var localWidth; 

if (type= n table") { 

localWidth-columnWidth ; 

} 

else { 

localWidth=width; 

) 

var theString = 1 <STYLE TYPE=*"text/css"># 9 +id+ 

• {width: , +localWidth+ t ; color: white; z-index: 1; }</STYLE> 1 ; 
theString += '<DIV CIAS S=" balloon" id=" '+id+ ■ ">' +message+'</DIV 
>■; 

//alert (theString) ; 
document. write (theString) ; 



function makeNavBalloon (id, message, width) 
makeBalloon (id, message, width, "nav") ; 



function makeTableBalloon (id, message) 
makeBalloon (id, message, 0, "table") ; 



function setupNavHelp () 
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//We want *just* the header and nav stuff set up here 
<% 

Enumeration e=bh . getNavBalloonlDs ( ) ; 
5 while (e.hasMoreElements () ) { 

String id= ( String) e . nextElement ( ) ; 
Balloon b=bh . getNavBalloon (id) ; 

%> 

makeNavBalloon( n <%= id %>","<%=' 
10 TableDescriptorDisplay.processDoubleQuote(b.getMsg() ) %>",<%= 

b.getBSizeO %>) ; 

<% 
} 

%> 

15 ) 

function setHang (id, event, docObj , type) 
{ 

hangID=id; 
20 hangDocObj=docObj; 

hangType=type ; 
hangX=event . clientX; 
hangY=event . clientY; 

timeID=setTimeout ("showHelpO ",1500) ; 

25 } 

function clearHangO { 
if (timelD != null) { 
clearTimeout (timelD) ; 

30 } 

hideHelp (hangID) ; 

} 

function showHelpO 
35 { 

var id=hangID 

if (isNav4up) { 

if (document .layers [id] null) { 
40 return; 

} 

if (hangType= n dataTable ,f ) .{ 

document .layers [id] .left « columnLeft; 
45 document. layers [id] .top = tableTop+ 

hangDocObj . parentElement . of f set Top; 
document . layers [id] . width=column Width; 

} 

else if (hangType— "dataLink") { 
50 document, layers [id] .left - 

document . body . scrollLef t+columnLef t ; 

document, layers [id] .top = document .body .scrollTop+hangY+10; 
document . layers [id] .width = columnWidth; 

) 

55 else { // nav link 

document, layers [id] .left = document .body. scrollLef t+hangX+10; 
document, layers [id] .top = document .body . scrollTop+hangY+10; 

} 
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document HKyers [id] . color="white"; 
document . layers [id] .visibility = "show"; 

} 

else { 

5 if (document .all [id] — null) { 

return; 

} 

if (hangType=="dataTable") { 
10 document. all [id] .style. pixelLeft = columnLeft; 

document . all [id] . style . pixelTop = 

tableTop + hangDocObj .parentElement .of f setTop; 
document . all [id] . style . width=columnWidth; 

} 

15 else if (hangType=="dataLink") { 

document. all [id] . style. pixelLeft = 

document . body . scrollLef t+columnLeft; 
document . all [ id] . style . pixelTop = 
document . body . scrollTop+hangY+10 ; 
20 document .all [id] . style. width=columnWidth; 

) 

else { // nav link 

document .all [id] . style. pixelLeft » 
document . body . scrollLef t+hangX+10 ; 
25 document . all [id] . style .pixelTop = 

document . body . scrollTop+hangY+1 0 ; 

) 

document. all [id] . style . color="white"; 
document. all [id] .style. visibility = "visible"; 



30 



} 



function hideHelp(id) 
{ 

35 if (isNav4up) { 

if (document . layers [id] != null) { 

document. layers [id] . vis ibility=" hide" ; 

} 

1 

40 else { 

if (document. all [id] != null) { 

document. all [id] . style. visibility="hidden"; 

} 

) 

45 } 

function validateTextarea (textareaObj , textAreaName f maxSize) { 
if (textareaObj .value. length > maxSize) { 
textareaObj . focus ( ) ; 
50 alert ("The "+textAreaName+" field has a maximum length of "+ 

maxSize+" characters, but is currently "+ 
textareaObj -value. length-*-" characters long."); 
return (false) ; 

} 

55 } 

function validateRPP () { 

var inputObj=document. forms [1] .newPageSize; 
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// check foSBalid number; not 0 
if (isNaN (inputObj .value) ) { 

alert (inputObj .value* " is not a valid number. \n" + 

"Please enter a numeric value."); 
5 inputObj . focus ( ) ; 

inputObj . select () ; 

return (false) ; 

} 

else if (inputObj .value == 0) { 
10 alert ("Please enter a number greater than 0."); 

inputObj . focus ( ) ; 
inputObj . select () ; 
return (false) ; 

} 

15 else { 

return (true) ; 

} 

} 

20 function showStatus (tableName) { 

var headerModeObj=document.viewTable. headerMode ; 
var headerMode; 

if (headerModeObj [0] -checked) { 

headerMode=headerModeObj [0] .value; 

25 } 

else { 

headerMode=headerModeObj [1] .value; 

} 

var action; 

30 if (headerMode =» "Browse . jsp") { 

action="BROWSE"; 

} 

else { 

action-"SEARCH"; 

35 } 

window. status=tableName+" ["-faction*"] "; 

) 

function showView (tableName) { 
40 var headerModeObj =document . viewTable . headerMode ; 

var headerMode; 

if (headerModeObj [0] .checked) { 

headerMode=headerModeObj [0] .value; 

) 

45 else { 

headerMode=headerModeObj [1] .value; 

} 

var mode; 
var doProcess; 
50 if (headerMode == "Browse. jsp") { 

mode=" browse " ; 

doProcess="browse" ; 

} 

else { 

55 mode=" search"; 

doProcess= s "new" ; 

} 

if (tableName != "doNothing") { 
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location ^Ref=headerMode+"?tableNa 

w &mode="+mode+ n &doProcess« ,, +doProcess+"&stackLevel=0 ,, + 
"&headerMode="+headerMode+"&header=true&unq=<%== unqStr %>"; 

} 

5 } 

function setTableCoords () { 
if (isNav4up) { 

tableTop = document . layers [ ' dataTable 1 ] . top; 
10 columnLeft = 

document . layers [ 1 dataTable 1 ] - lef t+ 
document . layers [ 1 dataTable » ] * rows [ 0 ] - of f setLef t ; 
columnWidth = document . layers [ 1 dataTable 1 ] . cells [ 0 ] . of f setWidth; 

} 

15 else { 

if (document .all ("dataTable") ==null) { 
return; 

} 

tableTop = document. all ("dataTable") .off setTop; 
20 columnLeft = 

document. all ("dataTable") .off setLef t+ 

document. all ("dataTable") .rows[0] .offsetLeft; 

columnWidth - document .all ("dataTable") .cells [0] .off setWidth; 

/ / columnWidth=2 0 0 ; 

25 } 
} 

//document . onmouseup==mouseUp; 
//document . onmousedown=mouseUp; 
30 document . onkeypress=keyPress; 

</SCRIPT> 

<%! 

public String [] headerTableList=null; 

35 %> 

Schemalive/ common /GlobalHeaderVARS . jsp 

<%! 

40 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

%> 
<% 

45 String PAGEBKGD = " fFFFFFF" ; 

String DARKCELL = "#60B2B2"; // "#B5A0B5"; 
String MIDLCELL = "#89BCBC"; // "#D5C0D5"; 
String LITECELL - "#CEE5D4"; // "#F5E0E5"; 

50 String URIPath = "/Schemalive"; 

String dbName = "cnslt_crm"; 
String dbConnName = "oraclev8"; 

55 response . setContentType ( "text/html" ) ; 

response . setHeader ( "pragma" , "no-cache" ) ; 

/* 
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if ( ! request . getP3*BmeterNames ( ) . hasMoreElem§3*Cs TIR/ 
String headerOnqStr= 

TableDescriptorDisplay.getNoCache (TableDescriptorDisplay. For JavaScript) ; 
session. removeAttribute ("sessionStack") ; 
5 session. removeAttribute ("headerMode") ; 

session. setAttribute ( n unq n ,headerUnqStr) ; 

response . sendRedirect ( "/Schemalive/AddEditForm. j sp?unq= n +headerUnqStr) ; 

return; 

} 

10 */ 
%> 

<%! public static final String version_common_GlobalHeaderVARS_jsp = 
"$Revision: 2.3 $ n ; %> 

15 

Schemalive /WEB- INF/web . xml 

<?xml version= n 1.0" encoding="ISO-8859-l n ?> 

20 <lDOCTYPE web-app 

PUBLIC "-//Sun Microsystems, Inc. //DTD Web Application 2.2//EN n 
"http : // j ava. sun . com/ j 2ee/dtds/web-app_2_2 . dtd"> 

<web-app> 
25 <servlet> 

<servlet-name>AddEditForm</servlet-name> 

<servlet-class>com.schemalive.AddEditForm</servlet-class> 
</servlet> 
<servlet> 

30 <servlet-name>Browse</servlet-narae> 

<servlet-class>com. schemalive. Browse</servlet-class> 
</servlet> 
<servlet> 

<servlet-name>BalloonHelpUtil</servlet-name> 
35 <servlet-class>com.scheroalive.BalloonHelpUtil</servlet-class> 
</servlet> 
<servlet> 

<servlet-name>DataDictionaryUtil</servlet-name> 

<servlet-class>com. schemalive . DataDictionaryOtil</servlet-class> 
40 </servlet> 
<servlet> 

<servlet-name>DoAddEdit</servlet-narae> 

<servlet-class>com. schemalive. DoAddEdit</servlet-class> 
</servlet> 
45 <servlet> 

<servlet-name>DoViewGenerator</servlet-name> 

<servlet-class>com. schemalive . DoViewGenerator</servlet-class> 
</servlet> 
<servlet> 

50 <servlet-name>Error5G0</servlet-name> 

<servlet-class>com. schemalive. Error500</servlet-class> 
</servlet> 
<servlet> 

<servlet-name>ExpiredSession</servlet-name> 
55 <servlet-class>com. schemalive. ExpiredSession</servlet-class> 

</servlet^ 
<servlet> 

<servlet-name>OutOfSequence</servlet-name> 
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<servlet-class>coflWchemalive . OutOf Sequence<$$NfjD^p£ UlSWfcd 
</servlet> 
<servlet> 

<servlet-name>showSession</servlet-name> 

<servlet-class>com. schemalive.showSession</servlet-class> 
</servlet> 
<servlet> 
<servlet-name> 

dbUtils . DataDictionaryServlet 
</servlet-name> 
<servlet-class> 

dbUtils . DataDictionaryServlet 
</servlet-class> 
<init-param> 

<param-name>dbConn</param-narae> 

<param-value>oraclev8</param-value> 
</init-param> 
<init-param> 

<param-name>database</param-name> 

<param-value>cnslt_crm</param-value> 
</init-param> 
</servlet> 
<servlet> 
<servlet-name> 

dbUtils .MasterDetailServlet 
</servlet-name> 
<servlet-class> 

dbUtils .MasterDetailServlet 
</servlet-class> 
<init-param> 

<par am- n ame>dbConn< /par am- name> 

<param-value>oraclev8</param-value> 
</init-param> 
<init-param> 

<parara-name>database</param-narae> 

<param-value>cnslt_crm</param-value> 
</init-param> 
</servlet> 
<servlet-mapping> 
<servlet-name> 

dbUtils . DataDictionaryServlet 
</servlet-name> 
<url-pattern> 

dbUtils. DataDictionaryServlet 
</url-pattern> 
</servlet-mapping> 
<servlet-mapping> 
<servlet-name> 

dbUtils .MasterDetailServlet 
< / se rvl e t- n ame> 
<url-pattern> 

dbUtils .MasterDetailServlet 
</url-pattern> 
< / s ervle t-mapping> 

<welcome-file-list> 
<welcome-f ile>index . html</welcome-f ile> 
</welcome-file-list> 
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<taglib> 

<taglib-uri>view</taglib-uri> 
<taglib-location>WEB-INF/taglib/view . tld</taglib-location> 
5 </taglib> 
<taglib> 

<taglib-uri>stack</taglib-uri> 

<taglib-location>WEB-INF/taglib/stack.tld</taglib-location> 
</taglib> 

10 

<security-constraint> 
<web-resource-collection> 

<web-resource-name>Schemalive</web-resource-name> 
<url-pattem>/</url-pattern> 
15 <http-method>GET</http-method> 
<http-method>POST</http-method> 
</web-resource-collection> 
<auth-constraint> 

<role-name>Schemalive</role-name> 
20 </auth-constraint> 

</ security-constraint> 
<login-conf ig> 
<auth-method>BASIC</auth-method> 
<realm-name>Schemalive</realro-name> 
25 </login-config> 
<security-role> 
<role-name>Scheraalive</role-name> 
</security-role> 
</web-app> 

30 

Schema live /WEB- INF/ classes /Connection . proper-ties 

# $Revision: 1.1 $ 

# $Date: 2001/10/29 22:18:29 $ 

35 

JDBCURL=jdbc : oracle : oci8 : @orcl . the tick 
# JDBCURL= jdbc : oracle : oci8 : 6ora81 6 
user=cnslt_crm 
pwd=c0nsultlng 
40 #user=schema 
#pwd=sch3ma 

S chemalive/WEB- INF/ classes /common/Debug, java 

45 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package common; 

50 // import weblogic. common. *; 
import java.util.*; 

public class Debug { 

55 public static final String version_dbUtils_DataDictionary_java = 

n $Revision: 2.3 $ n ; 

public static final boolean areDebugging = true; 
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public static £in»Fint INFO - 0; 
public static final int ERROR = 1; 
public static final int WARN = 2; 

5 private static Debug instance; 

// private LogServicesDef logHandle; 

private Debug () { 

// T3ServicesDef t3s = T3Services.getT3Services () ; 
10 // logHandle » t3s.log(); 

} 



public static synchronized void doLog (String logMessage r 
15 int logType) { 

if (instance = null) { 
instance = new Debug ( ) ; 

} 

20 try { 

switch (logType) { 
case Debug. INFO; 

// instance. logHandle. info (logMessage) ; 
Sy stem. out. println (new Date() . toString () + n : INFO: 
25 n +logMessage) ; 

break; 
case Debug. WARN: 

// instance. logHandle. warning (logMessage) ; 
System. out. print In (new Date () . toString () +" : WARN: 
30 n +logMessage) ; 

break; 
default: 

// instance. logHandle. error (logMessage) ; 
System. out. println (new Date () .toString () +" : ERROR: n + 
35 logMessage) ; 

break; 

) 

) 

/* 

40 catch (T3Exception t3e) { 

t3e. print StackTrace () ; 

*/ 

catch (Exception e) { 
} 

45 } 
) 

Schemalive/WKB-INF/classes/dbDtils/Cus tomCaps . java 

50 // $Revision: 2.4 $ 

// $Date: 2001/10/30 08:26:33 $ 

package dbUtils; 

55 public class CustomCaps { 

public static final String [] customCaps= 
{ 

"RFS", "SGP", "PRT n r "MM", "FPN", 
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"RF", 


"TC", ' 


"FMA", 


"NE", 




"AR", 


"CR", 


"FAQ", 


"FAR" , 


"POC", 


"TandL", 


"ID", 


"DB", 


"URL" , 


"ZIPcode", 


"HRID", 


"MSM", 


"PM", 


"PO" f 


"OT", 


"DEV", 


"US", 


"DSD", 


"NoCharge" 


, "CostTransfer", 


"PopUp", 


"FS", 


"NDA" , 


"YTD" 





}; 

} 

10 Schemalive/WEB-INF/classes/dbUtils/CustoaiDrillDown . java 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

15 package dbUtils; 

public class CustomDrillDown implements java.io.Serializable { 

public static final String version_dbUtils_CustomDrillDown_java = 
20 "$Revision: 2.3 $"; 

private String tableName; 
private String mode; 
private int keyColumn; 
25 private int parentColumn; 

private String focusField; 

public CustomDrillDown (String tableName, String mode, 
int keyColumn, int parentColumn, 
30 String focusField) 

this . tableName=tableName; 
thi s . mode=mode ; 
this .keyColumn=keyColumn; 
35 this .parentColumn=parentColumn; 

this . f ocusField=f ocusField; 

} 

public String getTableName ( ) { 
40 return (getTableName ("")); 

> 

public String getTableName (String prefix) { 
if (tableName. startsWith ("_")) { 
45 return (pre fix+ tableName) ; 

} 

else { 

return (tableName) ; 

) 

50 ) 

public String getMode() { 
return (mode) ; 

) 

55 

public int getKeyColumn ( ) { 
return (keyColumn) ; 

} 
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public int getParentColumn () { 
return (parentColumn) ; . 

) 

5 

public String getFocusField () { 
return (focusField) ; 

} 

} 

10 

Schemalive/WEB-XNF/classes/dbatils/CustomDropDown . java 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

15 

package dbUtils; 

import java.util.*; 

20 public class CustomDropDown implements java. io.Serializable { 

public static final String version dbUtils_Cu stomDropDown_ java » 
M $Revision: 2.3 

25 private String SQIiStr; 

// place CustomDropDownComponents into cddc 
private Vector cddc; 

public CustomDropDown ( ) { 
30 cddc=new Vector ( ) ; 

> 

public CustomDropDown (String mySQLStr) { 
this(); 

35 SQLStr=mySQLStr; . 

} 

public String getSQLStrO { 
return (SQLStr) ; 

40 } 

public void setSQLStr (String mySQLStr) { 
SQLStr = mySQLStr; 

} 

45 

public void addCDDC(CustomDropDownComponent cddcBlem) { 
cddc . add (cddcElem) ; 

} 

50 public void addCDDC(int index, CustomDropDownComponent cddcElem) { 

cddc . add ( index, cddcElem) ; 

} 

public CustomDropDownComponent removeCDDC (int index) { 
55 return ( (CustomDropDownComponent) cddc . remove (index) ) ; 

) 

public boolean removeCDDC (CustomDropDown cddcElem) { 
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return (cddc.reSWe (cddcElem) ) ; 

} 

} 

5 Schemalive/WEB-INF/classes/dbUtils/Cus tomDropDownConrponent . java 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

10 package dbUtils; 

public class CustomDropDownComp orient implements java. io. Serializable { 

public static final String version_dbOtils_CustomDropDownComponent_java = 
15 "$Revision: 2.3 $"; 

private String tableName; 
private String columnName; 
private String separator; 

20 

public CustomDropDownComponent (String myTableName, String myColumnNarae) 
{ 

this (myTableName, myColumnName, n n ) ; 

} 

25 

public CustomDropDownComponent (String myTableName, String myColumnName, 
String mySeparator) 

{ 

30 tableName=myTableName; 

columnName=myCo lumnName ; 
separator=mySeparator; 

} 

35 public String getTableName ( ) { 

return (tableName) ; 

} 

public String getColumnName ( ) { 
40 return (columnName) ; 

> 

public String getSeparator () { 
return (separator) ; 

45 ) 
} 

Schema live/WEB- INF/ classes /dbUtils /Da taPictionary . java 

50 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package dbOtils; 

55 import java.io.*; 
import java.sql.*; 
import java.util.*; 
import common . * ; 
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import javax.servlet^F 
import javax.servlet. jsp.*; 

//import com. customer. *; 

5 

public class DataDictionary implements java.io.Serializable { 

public static final String version_dbUtils_DataDictionary_java 
n $Revision: 2.3 $"; 

10 

private static DataDictionary instance ; 
private static Hashtable ddtdHash=new HashtableO; 
private static String saveFile="DataDictionary . save"; 
private static boolean buildDDOnly = false; 
15 private static boolean checkForViewExist = false; 

private static JspWriter out = null; 
private static boolean rebuild » false; 
private static boolean buildingViews = false; 

20 private DataDictionary (String database , String dbConnection) { 

init (database, dbConnection) ; 

} 

public static DataDictionary ref reshlnstance (String database, 
25 String dbConnection, 

boolean myBuildDDOnly, 
boolean myCheckForViewExist, 
JspWriter myOut) 
// throws ServletException { 



30 { 



out = myOut; 

return (ref reshlnstance (database, 

dbConnection, myBuildDDOnly, myCheckForViewExist) ) ; 



35 } 



public static DataDictionary ref reshlnstance (String database, 
String dbConnection, 
boolean myBuildDDOnly, 
boolean myCheckForViewExist) 
// throws ServletException {serial 



{ 



buildDDOnly = myBuildDDOnly; 
checkForViewExist « myCheckForViewExist; 
r ebuild=true ; 

return (getlnstance (database, dbConnection) ) . 



} 



50 public static synchronized DataDictionary getlnstance (String database, 

String dbConnection) 
// throws ServletException { 

{ 

55 // check license 

//String unlockKeyString - "zrftuaxwouanxweduvgqwkldlmkdivb"; 
//B.rymu (unlockKeyString) ; 
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//Fid licensevSfff ier » new Fid(); 
//boolean licenseOk » 

licenseVerifier.Pmdz ("d: \\wls5 .1 .0\\Schemalive\\license") ; 
/* 

5 if (! licenseOk) { 

int errCode = licenseVerif ier .dsz () ; 
switch (errCode) { 
case 2: 

Exception fgn » licenseVerif ier .Ucao () ; 
10 if ( fgn > toS t ring () .indexOf ("NullPointerException") >= 0) { 

throw new ServletException ("No License File found"); 

} 

else { 

throw new ServletException (fgn. toString {)) ; 

15 } 

case 3: 

throw new ServletException ("License has expired"); 
default : 

throw new ServletException ("License error code: w +errCode) ; 

20 } 
} 

*/ 

if (instance == null | | rebuild) { 
25 if (ibuildingViews) { 

instance = new DataDictionary (database, dbConnection) ; 
rebuild=false; 

} 

) 

30 return (instance) ; 



public static synchronized DataDictionary ref reshlnstance ( 
String database, String dbConnection) 

35 { 

instance = new DataDictionary (database, dbConnection) ; 
return (instance) ; 



40 // This will pre-load the data dictionary into a hash of 

// DataDictionaryTD objects keyed on the table name 
private void init (String database, String dbConnection) { 
// Check to see if serialization file exists 
FilelnputStream filln=null; 
45 ObjectlnputStream objIn=»null; 

try { 

if (rebuild) { 

throw new FileNotFoundException ( ) ; 

} 

50 saveFile=" DataDictionary. "+database+" .save"; 

filln=new FilelnputStream (saveFile) ; 

obj In=new Ob j ectlnput Stream ( f illn) ; 

ddtdHash= (Hashtable) obj In . readObject () ; 

obj In. close () ; 
55 return; 
} 

catch (FileNotFoundException fnfe) { 

outputlnfo ("<b>About to build DataDictionary: first pass.</bxbr>") ; 
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doDataDictiSKry (database, dbConnectionJPH 

outputlnf o( n <b>Done building DataDictionary : first pass . </bxbr>") ; 
if (IbuildDDOnly) { 
outputlnf o { 

5 n <b>About to call ViewGenerator for all Views . </bXbr> n ) ; 

// build Views 
instance=this; 
buildingViews=true; 
rebuild=false; 
10 Set ddtdSet = tables (); 

Object [] ddtdAry = ddtdSet . toArray () ; 
Arrays . sort (ddtdAry) ; 
for (int i=0; KddtdAry. length; i++) { 
DataDictionaryTD ddtd= 
15 getDataDictionaryTD( (String) ddtdAry [i] ) ; 

if (ddtd.getTDTypeO — ■ TableDescriptor . VIEW) { 
continue; 

} 

ViewGenerator vg = null; 
20 if (checkForViewExist) { 

vg = new ViewGenerator (ddtd, true , true, out) ; 

} 

else { 

vg = new ViewGenerator (ddtd, out) ; 

25 } 
) 

instance=null; 
buildingViews'=false; 

outputlnf o ( n <b>Done building Views ,</b><br>") ; 
30 outputlnf o ( 

"<b>About to build DataDictionary: second pass .</b><br>") ; 
doDataDictionary (database, dbConnection) ; 
outputlnf o ( 

n <b>Done building DataDictionary: second pass ,</b><br> n ) ; 

35 } 

out - null; 

this . serialize () ; 4 

) 

catch (IOException ioe) { 
40 ioe.printStackTrace () ; 

} 

catch (ClassNotFoundException cnfe) { 
cnfe.printStackTrace () ; 

) 

45 } 

private void outputlnf o (String infoStr) { 
try { 

if (Debug. areDebugging) { 
50 Debug . doLog (inf oStr f Debug . INFO) ; 

} 

if (out != null) { 

out . println ( inf oS tr ) ; 
out. flush () ; 

55 } 
} 

catch (IOException ioe) { 
ioe.printStackTrace () ; 
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) 

} 

public void doDataDictionary (String database, String dbConnection) { 
5 Connection con = SQLUtil . makeConnection ( ) ; 

try { 

Statement stmt = con. createStatement () ; 

outputInfo( w <b>Building DataDictionary for tables . </b><br>") ; 
10 String qStr=" SELECT TABLE_NAME FROM USER_TABLES ORDER BY "+ 

n TABLE_NAME DESC"; 
ResultSet rs^stmt . executeQuery (qStr) ; 
outputInfo( n \t<blockquote> n ) ; 
while (rs.next(j) { 
15 String tableName=rs .getString (1) ; 

//System. out. println ( "tableName : n +tableName) ; 
outputInfo( n \tAdding table: "+tableName+ n to 
DataDictionary. <br> n ) ; 
DataDictionaryTD ddtd = 
20 new DataDictionaryTD (database, tableName, dbConnection, out) ; 

ddtd. setTDType (TableDescriptor . TABLE) ; 
ddtdHash. put (tableName, ddtd) ; 

} 

outputlnfo("\t</blockquote> n ) ; 
25 outputInfo( n <b>Building DataDictionary for views .</bxbr> w ) ; 

outputInfo( w \t<blockquote>") ; 

qStr*= n SELECT VIEWJNAME FROM USER_VIEWS ORDER BY VIEW_NAME DESC"; 
rs=stmt . executeQuery (qStr ) ; 
while (rs.nextO) { 
30 String viewName=rs . getString (1) ; 

output Inf o ("\tAdding view: "+viewName+ n to DataDictionary . <br>") ; 
DataDictionaryTD ddtd = 

new DataDictionaryTD (database, viewName, dbConnection, out) ; 
ddtd. setTDType (TableDescriptor .VIEW) ; 
35 ddtdflash . put (viewName, ddtd) ; 

} 

outputInfoC\t</blockquote> w ) ; 

outputInfo( w <b>Building constraints in DataDictionary. </bxbr> n ) ; 
// Micah 1-17-01 
40 Enumeration ddtdEnum=ddtdHash . keys ( ) ; 

while (ddtdEnum.hasMoreElements () ) { 
DataDictionaryTD ddtd= 

(DataDictionaryTD) ddtdHash. get ( (String) 
45 ddtdEnum . nextElement ( ) ) ; 

ddtd.buildConstraints (dbConnection, this) ; 

) 

rs. close () ; 
50 stmt. close () ; 

} 

catch (SQLException sqle) { 
sqle. prints tackTrace () ; 

} 

55 catch (Exception e) { 

System. out. println ("con "+con) ; 
e.printStackTrace () ; 

} 
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try { 

con. close () ; 

} 

5 catch (SQLException sqle) { 

sqle.printStackTrace () ; 

} 

} 

10 public DataDictionaryTD getDataDictionaryTD( String tableName) { 

return ( ( DataDictionaryTD) ddtdHash. get (tableName. toUpperCase () ) ) ; 

} 

public Set tables () { 
15 return (ddtdHash . keyset ( ) ) ; 

} 

private void serialize () { 

ObjectOutputStream objOut= null; 
20 FileOutputStream filOut = null; 

try { 

filOut - new FileOutputStream (saveFile) ; 
objOut =» new ObjectOutputStream (filOut) ; 

25 

objOut.writeObject (ddtdHash) ; 
obj Out. flush () ; 
ob j Out. close () ; 

} 

30 catch (IOException ioe) { 

ioe. prints tackTrace () ; 

} 

} 

) 

35 

Schemalive/WEB-INF/ classes /dbUtils/DataDictionaryServlet . java 

// $Revision: 2.4 $ 

// $Date: 2001/10/30 05:40:38 $ 

40 

package dbUtils; 

import j ava . io . * ; 
import java.util.*; 
45 import java.sql.*; 

import j avax . servlet . * ; 
import j avax . servlet . http . * ; 

import dbOtils.*; 

50 

public class DataDictionaryServlet extends HttpServlet { 

String dbConn=null; 
String database^null; 

55 

private DataDictionary dd; 

public void init (ServletConfig config) { 
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database=confi^5etInitParameter ("databaspi"^ 
toConn==conf ig. get Init Parameter ("dbConn") ; 
dd=DataDictionary.getInstance (database, dbConn) ; 

) 

5 

public void doGet (HttpServletRequest req, HttpServletResponse res) { 
// if not tableName pa ram, return summary of all 
String tableName=req. get Parameter ("tableName") ; 
String refresh=req. get Parameter ("refresh") ; 

10 

if (refresh != null && ref resh. equals ("yes") ) { 

dd=DataDictionary . ref reshlnstance (database, dbConn) ; 

} 



if (tableName == null) { 
showSummary (req, res) ; 

) 

else { 

showDetail (req, res, tableName) ; 

} 

} 



public void showSummary (HttpServletRequest req, HttpServletResponse res) { 
Set e=dd . tables ( ) ; 
25 Ob j ect [ ] tableSet=e . t oArr ay ( ) ; 

Arrays . sort (tableSet) ; 



res . setCont entType ( "text /html " ) ; 

StringBuffer outputString « new StringBuf fer () ; 

outputString . append ("<HTML>\n\t "+ 
"<HEAD>"+ 

"<TITLE>DataDictionary</TITLE>"+ 
"</HEAD>\n") ; 

outputString. append ("\t<BODY bgcolor=A"#ff f f f f \">\n") ; 



outputString. append ("\t\tAvailable Tables for "+database+" : <br>\n"); 
outputString. append ("\t\t<font size=\"-2\">Click table name to see "+ 
"details . </f ont>\n" ) ; 

outputString. append ("\t\t<TABLE width=A"600\" border=\"l\ n >\n") ; 



int columnCount=0; 

45 

for (int i=0;i<tableSet.length;i++) { 
if (columnCount = 5) { 

outputString . append ( " \n\ t\t \t</TR>\n" ) ; 
columnCount=0 ; 

50 } 

if (columnCount ==0) { 

outputString . append ( " \ t \t \t<TR>\n\ t \ t \ t\ t " ) ; 

} 

String tName= (String) tableSet [i J ; 
55 outputString. append ("<TD><A HREF=\"/Schemalive/dbUtils . "+ 

"DataDictionaryServlet?tableName="+ 
tName+ " \ " >" +tName+ " < /A></TD> » 
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coluranCount^PT 

} 

while (columnCount < 5) { 

outputString.append("<TD>&iibsp;</TD> n ) ; 

columnCount ++ ; 

if (columnCount =6) { 

outputString. append ("\n\t\t\t</TR>\n") ; 

} 

} 

outputs tring. append ("\t\t</TABI»E>\n") ; 
outputs tring . append ( " \t</BODY>\n n ) ; 
outputString. append ("</HTML>") ; 

PrintWriter out=null; 
try { 

out=res . getWriter ( ) ; 

} 

catch (lOException ioe) { 
ioe.printStackTrace () ; 

} 

out. println (outputString. toStringO ) ; 



public void showDetail (HttpServletRequest req, HttpServletResponse res, 
String table) 

{ 

res. setContentType ("text /html") ; 

StringBuffer outputString = new StringBuf f er () ; 

outputString. append ("<HTMI»>\n\t"+ 
"<HEAD>"+ 

"<TITLE>DataDictionary</TITIiE> n + 
"</HEAD>\n" 

); 

outputString. append ("\t<BODY bgcolor=\"#f f f f f f \">\n") ; 
outputString . append ( 

"<A HREF=\"/Schemalive/dbUtils . DataDictionaryServlet"+ 
"\">Return to Table listing</AXp>\n M ) ; 

DataDictionaryTD ddtd=dd . getDataDictionaryTD (table ) ; 

outputString. append ("\t\tDetails for table: "+table+" (key: "+ 
ddtd.getKeyField()+")<p>\n") ; 

outputString. append ("\t\t<TABLE width=\ w 600\" border=\"l\">\n") ; 
String viewSelect =» null; 

if (ddtd.getTDType() — TableDescriptor . VIEW) { 
viewSelect = ddtd.getViewSelect () ; 

ResultSetMetaData rsmd=ddtd. getMetaData ( ) ; 

outputString. append( n \t\t\t<TR><TH>ColmnName</TH>"+ 
"<TH>Null?</THXTH> ColumntType (Size) </TH>"+ 
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"<TB>Const^PTnt Table/Key</TH>\n n 

); 

try { 

5 for (int i=l; i<=rsmd.getColumnCount ( ) ; i++) { 

String columnName=rsmd.getColumnName (i) ; 
String formattedColunmName=ddtd. get Forma 1 1 edField (i-1) ; 
String columnType=rsmd.getColumnTypeName (i) ; 

10 outputString.append("\t\t\t<TR>\n") ; 

outputString.aippend("\t\t\t\t<TD> M +columnNaine+ 
n <br>( n + 

f ormattedColumnName+") </TD>\n" 

); 



15 



outputString. append ("\t\t\t\t<TD>") , 



if (rsmd.isNullable(i) ResultSetMetaData.columnNullable) { 
outputString. append ("NOT NULL "); 

20 } 

else { 

outputString. append ("snbsp;") ; 

} 

25 outputString . append ( " </TDXTD>" ) ; 

outputString . append (columnType) ; 
if (! columnType. equals ("DATE")) { 
outputString . append ("("); 
30 if (columnType . equals ( "NUMBER" ) ) { 

int precision=rsmd.getPrecision (i) ; 
int scale=rsmd.getScale (i) ; 
if (precision != 0) { 

outputString . append (precision*", "+scale) ; 

35 } 
} 

else { 

outputString. append (rsmd. getColumnDisplay Size (i) ) ; 

> 

40 outputString.append(") </TD>\n") ; 

} 

outputString. append ("\t\t\t\t<TD>") ; 

TableDescriptor td=null; 
45 if ( (td=ddtd.getConstraint (coluranName) ) != null) { 

outputString. append { "<A HREF=\"/Schemalive/dbUtils . " + 
,, DataDictionaryServlet?tableName=" + 
td . getTable ( ) + " \ " >"+td . ge tTable ( ) + 
50 "</A>/ "+td. getKeyField ( ) 

); 

} 

else { 

outputString . append ( " &nbsp ; " ) ; - 

55 } 

outputString . append ( " </TD>\n" ) ; 
outputString . append ( " \t \ t\t</TR>\n" ) ; 
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} 

} 

catch (SQLException sqle) { 
sqle. print StackTrace () ; 

5 } 

if (viewSelect != null) { 

output String, append ("<TR><TD><b>View Select :</bx/TD>\n") ; 
outputString. append ( n <TD colspan=3>\""+viewSelect) ; 
outputString . append { " \"</TDX/TR>\n n ) ; 

10 } 

outputString. append ("\t\t</TABLE><p>\n" ) ; 

outputString . append ( 

"<A HREF=\ n /Schemalive/dbUtils.DataDictionaryServlet"+ 
15 n \">Return to Table listing</AXp>\n" ) ; 

outputString . append ( ,, \t</BODY>\n w ) ; 
outputString . append ( "</HTML>\n w ) ; 

20 

PrintWriter out=null; 
try { 

out=res . getWri ter ( ) ; 

} 

25 catch (IOBxception ioe) { 

ioe . print StackTrace ( ) ; 

} 

out. println (outputString. toString{) ) ; 

30 } 
} 

ScOiemalive/WEB-INP/classes/dbUtils/DataDictionaryTD . java 

35 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package dbUtils; 

40 import java.io.*; 
import java.sql.*; 
import java.util.*; 

import common.*; 
45 import javax.servlet. jsp.*; 

//import dbPoolUtils.*; 

public class DataDictionaryTD extends TableDescriptor implements java.io. 
50 Serializable { 

public static final String version_dbUtils_DataDictionaryTD java « 

w $Revision: 2.3 $ n ; 

private static JspWriter out=null; 

55 

public DataDictionaryTD (String database, String table, 
String dbConnection) 

{ 
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this ( database ^Rble, disconnection, null) ; 

} 

public DataDictionaryTD (String database, String table, 
5 String dbConnection r JspWriter out) 

{ 

super (database , table. toUpper Case () ,dbConnection,out) ; 
this.out=out; 

10 // Micah 1-17-01 

//buildConstraints (dbConnection) ; 

} 

// Micah 1-17-01 

15 public void buildConstraints (String dbConnection, DataDictionary dd) { 

// This class is going to automagically load up the TD stuff using 
// DataDictionary 
Vector constraints=new Vector (); 
try { 

20 Connection con - SQLUtil.makeConnection () ; 

if (con == null) { 

throw new SQLException ("Can 1 t get connection: n +dbConnection) ; 

} 

25 Statement stmt = con.createStatement () ; 

// first let's see if we are dealing with a view 
String qStr="SELECT TEXT from USER_VIEWS where "+ 
n VIEW_NAME= l n +getTable () +" 
30 ResultSet rs«stmt . executeQuery (qStr ) ; 

if (rs.nextO) { // dealing with a view 

output Inf o ("<b>Setting ViewSelect for "+getTable () + 

n </b><br> rt ) ; 
setViewSelect (rs . getString (1) ) ; 
35 rs. close (); 

stmt. close () ; 
con. close () ; 

// check for column comments for CustomDrillDown 
40 Enumeration dfsEnum = displayFields ( ) ; 

int index=0; 

while (dfsEnum.hasMoreElements () ) { 

//con = connMgr.getConnection (dbConnection) ; 
con = SQLUtil.makeConnection () ; 
45 if (con = null) { 

throw new SQLException ( "Can ' t get connection: "+ 
dbConnection) ; 

} 

String df = (String) dfsEnum. nextElement () ; 
50 qStr="select comments from user_col_comments "+ 

"where comments is not null and table_name= 1 "+ 
getTable()+ nt and columnjiame^' M +df + n ■ "; 

stmt - con.createStatement () ; 
55 rs=stmt -executeQuery (qStr) ; 

if (rs.nextO) { 

String comment s=rs . getString ( 1 ) ; 

if (Debug. areDebugging) { 
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-Eebug.doLogCcol comments (WET/ 
getTable ()+"." +df +" : n +comment s , Debug . INFO) ; 

} 

// parse 

// get tableName 

int beginTag=comments . indexOf ( M <tableName> n ) + 
"<tableName> w . length () ; 
int endTag=0; 

if (beginTag >= "<tableName>" . length () ) { 
endTag=comments . indexOf ("</tableName>") ; 
String tableName=comments . substring (beginTag, endTag) . 
toUpperCase ( ) . trim ( ) ; 

// get mode 

beginTag=comments . indexOf ( w <mode>" ) + 

n <mode> n • length ( ) ; 
endTag=comments . indexOf {"</mode>" ) ; 

String mode=comments . substring (beginTag , endTag) .trim() 
//get keyColumn 

beginTag-comments . indexOf ( "<keyColumn>" ) + 

"<keyColumn> ,f .length () ; 
endTag»comments . indexOf ( ,, </keyColumn>") ; 
int keyColumn=Integer .parselnt ( 

comments . substring ( 

beginTag, endTag) -trim() 

>; 

//get parentColumn 

beginTag=comments . indexOf ( w <parentColuran>" ) + 

n <parentColumn>" . length () ; 
endTag=comments . indexOf ("</parentColumn> M ) ; 
int parentColumn=Integer .parselnt ( 

comments . substring (beginTag, endTag) . trim ( ) 

); 

//get focusField 

beginTag=comments . indexOf ( "<f ocusField> w ) + 
n <f ocusField> n . length ( ) ; 

endTag=comments . indexOf ("</f ocusField> rt ) ; 

String f ocusField^coraments . substring (beginTag, endTag) . 

toCTpperCase () .trim() ; 

if (Debug. areDebugging) { 

Debug . doLog ( "DDTD : tableNarae= w +tableName+ n / raode= n + 
mode+", keyColumn- w +keyColumn+ n , parentColumn= n + 
parentColumn+ w , focusField= n +focusField, Debug . INFO) ; 

) 

setCustomDrillDown (new CustomDrillDown ( 
tableName, mode, keyColumn, 
parentColumn, focusField) , index++) ; 



// parse for constraints 

beginTag=comments . indexOf ("<f ore ignTableName> B ) + 

M <foreignTableName> n . length () ; 
endTag=0; 

if (beginTag >= n <f ore ignTableName>" .length () ) { 
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KndTag=comments . indexOf ( "^J^^l^g^WSTO^fe^^W 
String f oreignTableName^ 
comments . substring ( 

beginTag,endTag) . toUpperCase () .trim() ; 
beginTag=comments . indexOf ("<f oreignKeyField> n ) + 

"<f oreignKeyField> n . length ( ) ; 
endTag=comments . indexOf {"</f oreignKeyField>") ; 
String foreignKeyField^ 
comments . substring ( 

beginTag, endTag) . toUpperCase () . trim () ; 

if (Debug. areDebugging) { 

Debug. doLog ("About to create new TD on "+ 
getTable()+"."+df+' t with " + 
n f oreignTableName : " + 
foreignTableName+ 
" foreignKeyField: w + 
foreignKeyField, Debug . INFO 

); 

} 

TableDescriptor td= 

new TableDescriptor (getDatabase () , 
foreignTableName, 
getDBConnection ( ) , out 

); 

td . se tKeyField (foreignKeyField) ; 
putConstraintForView (df , td) ; 

/* Micah 1-17-01 
TableDescriptor td = 

dd.getDataDictionaryTD (f oreignTableName) ; 
td.se tKeyField (foreignKeyField) ; 
putConstraintForView (df , td) ; 
*/ 

index++; 

} 

} 

else { 

setCustomDrillDown (null, index++) ; 

> 

rs.closeO; 
stmt . close ( ) ; 

//connMgr . f reeConnection (dbConnection, con) ; 
con. close () ; 

} 

return; 

} // end check for dealing with a view 

// check for column comments on a table 
Enumeration dfsEnum = displayFields () ; 
int index=0; 

while (df sEnum.hasMoreElements () ) { 

String df » (String) dfsEnum. nextElement () ; 
qStr=" select comments from user_col_comments "+ 

"where comments is not null and table_name=' "+ 

getTable()+ ,,, and column_name= , n +df+ w 1 
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rs=stmt . executeQuery (qStr ) ; 
if (rs.nextO) { 

String comment s=rs -gets tring(l) ; 
if (Debug. areDebugging) { 

Debug. doLog{ 11 col comments for "+ 

getTable () +" . n +df+ n : "+comments, Debug. INFO 

); 

} 

// parse for customdropdown 
int endTag=0; 
int beginTag=0; 

if (0 < (endTag=comments.indexOf ("</sql>") ) ) { 

beginTag=comments . indexOf ( n <sql> n ) +"<sql>" . length () ; 
String 

customDropDownSQL=comments . substring (beginTag, endTag) . 

toCTpperCase () .trim() ; 

if (Debug. areDebugging) { 

Debug. doLog ("Setting 'local 1 Foreign CDD to: n + 

customDropDownSQL, 
Debug. INFO) ; 

} 

setForeignCDD (df , customDropDownSQL) ; 

} 

} 

} 

qStr= n SELECT B . COLUMN_NAME , C . TABLE_NAME , C . COLUMN_NAME "+ 
"FROM USER_CONSTRAINTS A, USER_CONS_COLUMNS B, " + 
"USER_CONS_COLUMNS C WHERE n + 

"A.CONSTRAINT_TYPE - 'R 1 AND A.TABLE_NAME = ■ "+getTable () + 

AND A . CONSTRAINT_NAME = B . CONSTRAINT_NAME " + 
"AND A.R CONSTRAINT NAME = C. CONSTRAINT NAME"; 



rs^stmt . executeQuery (qStr ) ; 

outputlnfo("<b>constraints for: "+getTable () +"</b><blockquote>") ; 
while (rs.nextO) { 
/* Micah 1-17-01 

TableDescriptor td=new TableDescriptor (getDatabase () , 
rs . getString (2) , 
getDBConnection ( ) 

); 

td. setKeyField (rs .getString (3) ) ; 
putConstraint (rs .getString (1) , td) ; 
Micah 1-17-01 */ 

TableDescriptor td=dd . getDataDictionaryTD (rs .getString (2) ) ; 
t d . setKeyField ( r s . getString ( 3 ) ) ; 
putConstraint (rs . getString (1) , td) ; 

outputInfo(rs. getString (1)+" — > "+ 

rs . getString (2) +" . "+td. getKey Field ( ) +"<br>" ) ; 

if (getForeignCDD (rs. getString (1) ) == null) { 
if (td.getPrimaryCDDO != null) { 
if (Debug. areDebugging) { 
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^Bebug . doLog (getTable ( ) + " . 'ff^CiefrSUWjltV 

Inheriting remote Primary CDD as: n +td.getPrimaryCDD 
( ) . getSQLS tr ( ) , Debug . INFO) ; 

} 

5 setForeignCDD(rs.getString(l) , td . getPrimaryCDD ( ) .getSQLStr 

0); 

} 

) 

} 

10 outputlnfo ( n </blockquote>") ; 

qStr=* n SELECT B . COLUMN_NAME FROM "+ 

"USER^CONSTRAINTS A, USER_CONS_C0LUMNS B WHERE M + 
"A.CONSTRAINTJTYPE^'P' AND A . TABLE NAME = 1 "+getTable ( ) + 
AND A.CONSTRAINT_NAME=B.CONSTRAINT_NAME w ; 

15 

rs=stmt .executeQuery (qStr) ; 
if (rs.next () ) { 

setKeyField(rs.getStringd) ) ; 

} 

20 rs. close () ; 

stmt .close () ; 

//connMgr . f reeConnection (dbConnection, con) ; 
con . close ( ) ; 

) 

25 catch (SQLException sqle) { 

sqle . prints tackTrace ( ) ; 

} 

catch (Exception e) { 
e. prints tackTrace () ; 

30 ) 
) 

private void outputlnfo (String infoStr) { 
try { 

35 if (Debug. areDebugging) { 

Debug . doLog (inf oStr , Debug . INFO) ; 

> 

if (out != null) { 

out . println (inf oStr) ; 
40 out. f lush (); 

} 

} 

catch (IOException ioe) { 
ioe.printStackTrace () ; 

45 ) 
) 

> 

Schenialive/WEB-INF/classes/dbUtils/MasterDetail . java 

50 

// $Revision: 2.3 $ */ 

// $Date: 2001/10/30 01:35:53 $ */ 

package dbUtils; 

55 

import java.io.*; 
import java.sql.*; 
import java.util.*; 
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public class MasterDetail { 

public static final String version_dbOtils_MasterDetail_java = 
M $Revision: 2.3 $"; 

private static MasterDetail instance; 

private static Hashtable mdHash=new Hashtable(); 

private MasterDetail (String database, String dbConnection) { 
init (database, dbConnection) ; 

} 

public static synchronized MasterDetail getlnstance (String database, 
String dbConnection) 

{ 

if (instance — null) { 

instance «■ new MasterDetail (database, dbConnection) ; 

} 

return (instance) ; 



public static synchronized MasterDetail getlnstance () { 
return (instance) ; 

} 

private void init (String database, String dbConnection) { 
try { 

Connection con « SQLUtil.makeConnection () ; 
if (con — null) { 

throw new SQLException ("Can 1 t get connection: n +dbConnection) 

} 

Statement stmt « con .creates tatement () ; 

String qStr="select tablename, comments from user_tab_comments n 

"where comments is not null"; 
ResultSet rs=stmt . executeQuery (qStr ) ; 
while (rs.nextO) { 

Vector detailVect=parseComments (rs.getString (2) ) ; 

mdHash.put (rs .getString (1) , detailVect) ; 

} 

rs .close () ; 
stmt .close () ; 
con. close () ; 

) 

catch (SQLException sqle) { 
sqle. prints tackTrace () ; 

) 

} 

private Vector parseComments (String comments) { 

Vector detailTables=new Vector (); 

int begTag=comments . indexOf ("<detailTable> n ) + 

n <detailTable> n .length () ; 
int endTag=*comments . indexOf ( n </detailTable> n ,begTag) ; 
while (begTag >= "<detailTable> n .length () && endTag >= 0) { 

detailTables . add (comments . substring (begTag, endTag) . toOpperCase ( ) 
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trim() ) ; 

begTag=comments . indexOf ( "<detailTable>" , endTag) + 

"<detailTable>" . length ( ) ; 
endTag=comments.indexOf ("</detailTable>",begTag) ; 

5 } 

return (detailTables) ; 

} 

public Vector getDetailTables (String tableName) { 
10 Vector detailTables* (Vector ) mdHash . get (tableName . toDpperCase ( ) ) ; 

if (detailTables — null) { 
return (new Vector () ) ; 

} 

else { 

15 return (detailTables) ; 

} 

} 

public Set tables () { 
20 return (mdHash . keyset ( ) ) ; 

} 

} 

Scheinalive/WEB-INF/classes/dbUtils/MasterDetailServlet . java 

25 

// $Revision: 2.4 $ 

// $Date: 2001/10/30 05:40:38 $ 

package dbUtils; 

30 

import java.io.*; 

import java.util-*; 

import java.sql.*; 

import javax.servlet.*; 

35 import javax. servlet.http. *; 

import dbOtils.*; 

public class MasterDetailServlet extends HttpServlet { 

40 

String dbConn=null; 
String database=null; 

private MasterDetail md; 

45 

public void init (ServletConfig config) { 

database=conf ig.getlnitParameter ("database") ; 
dbConn=conf ig . getlnitParameter ( "dbConn " ) ; 
md^MasterDetail . getlnstance (database, dbConn) ; 

50 ) 

public void doGet (HttpServletRequest req, HttpServletResponse res) { 
String tableName=req. get Parameter ("tableName") ; 

55 String output String^null; 

if (tableName — null) { 

output St ring°showSummary ( req, res ) ; 

) 
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else { 

outputString=3howDetail(req, res, tableName) ; 

} 

res . setContentType ( "text/html" ) ; 
PrintWriter out-null; 
try { 

out^res . getWr iter ( ) ; 

} 

catch (IOException ioe) { 
ioe . printStackTrace ( ) ; 

} 

out-println (outputString) ; 



public String showSummary (HttpServletRequest req, 
HttpServletResponse res) { 

Set tables=md. tables () ; 

Ob j ec t [ ] t ableSe t=tables . toArray ( ) ; 

Arrays . sort (tableSet) ; 

StringBuffer outputString = new StringBuf f er ( ) ; 

outputString, append ( "<HTML>\n\t n + 
n <HEAD>"+ 

"<TITLE>MasterDetail</TITLE> w + 
"</HEAD>\n n 

); 

outputString. append ( n \t<BODY bgcolor=\"#f f f f f f \">\n n ) ; 

outputString. append ("\t\tMaster tables for "+database+ n : <br>\n"); 
outputString. append ( n \t\t<font size=\"-2\ w >Click table name to see 
"detail tables -</font>\n B ) ; 

outputString. append ("\t\t<TABLE border=\ w l\ ,, >\n") ; 

int columnCount=0 ; 

for (int i=0;i<tableSet. length; i++) { 
if (columnCount ==5) { 

outputString . append ( " \n\t\ t\ t</TR>\n w ) ; 
columnCount=0 ; 

} 

if (columnCount — 0) { 

outputString . append ( " \t\t\t<TR>\n\t\ t\t \t " ) ; 

} 

String tableName= (String) tableSet [i] ; 

outputString. append ( n <TDXA HREF=\ n /Schemalive/db0tils. w + 
n MasterDetailServlet?tableName= ,, + 
tableName+ w \ r> > t, +tableName+"</a></TD>\n ,? 

); 

columnCoun t++ ; 

) 

while (columnCount < 5) { 

outputString . append ( " \t\t\ t\ t<TD>  </TD>\n n ) ; 

columnCount++; 

if (columnCount =6) { 

outputString . append ( "\t\t\t</TR>\n" ) ; 
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} 

} 

outputString.append( n \t\t</TABLE>\n n ) ; 
outputs tring . append ( w \t</B0DY>\n" ) ; 
5 outputString . append ( n </HTML>" ) ; 

return (outputString. toS tring () ) ; 

} 

10 public String showDetail (HttpServletRequest req, HttpServletResponse res, 

String table) { 

StringBuffer outputString = new StringBuffer () ; 

outputString . append ( "<HTML>\n\t"+ 
15 "<HEAD>" + 

n <TITLE>MasterDetail</TITLE> n + 
n </HEAD>\n n 

); 

20 outputString. append ("\t<BODY bgcolor=\ n #f f f f f f \ n >\n") ; 

outputString . append ( n <A HREF«\ " /Schemalive/dbUtils . Mas terDetailServlet " 
+ 

w \">Return to Master Table Listing</A><p>\n n ) ; 
outputString. append ( n \t\tDetail tables for : n +table+ n <p>\n n ) ; 
25 outputString. append ( n \t\t<TABLE border=\ n l\">\n n ) ; 

Vector detailTables=rad.getDetailTables (table) ; 
Enumeration e»detailTables . elements ( ) ; 

while (e.hasMoreElements () ) { 
30 outputString . append ( n \t\ t\t<TR>\n\t \ t\ t \ t<TD>"+ 

(String) e . nextElement ( ) + 
n </TD>\n\t\t\t</TR>\n") ; 

> 

35 outputString. append C\t\t\t</TR>\n w ) ; 

outputString. append ( n \t\t</TABLE>\n w ) ; 
outputString . append ( " \t</BODY>\n" ) ; 
outputString. append ( n </HTML> n ) ; 

40 return ( outputString . toS tring ( ) ) ; 

} 

} 

Schemalive /WEB-INF/classes/dbUtils/SQI,Util . java 

45 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package dbUtils; 

50 

import java.util.*; 
import java.sql.*; 
import javax.sql.*; 
import oracle . j dbc . driver . * ; 
55 import oracle. j dbc. pool. *; 

import common.*; 
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public class SQLUtil { 

public static final String version_dbUtils_SQLUtil_java =» 
"$Revision: 2,3 $"; 

//public static final String JDBCDriver = "weblogic . jdbc. pool . Driver"; 
//public static final String JDBCDriver = "weblogic. jdbc20. pool. Driver"; 



//public static final String JDBCURL = "jdbc: weblogic: pool: oraclePool"; 
//public static final String JDBCURL - " jdbc20 : weblogic : pool : oraclePool"; 
//public static final String JDBCURL = " jdbc: oracle :oci 8 : Oorcl, thetick"; 
15 //public static final String user =» "CNSLT_CRM"; // "schema"; 

//public static final String pwd = "CONSULTING"; // n sch3ma"; 

//public static Driver oraDriver»null; 

20 public static OracleConnectionCachelmpl ods=null; 

public static String processSingleQuote (String str) { 
int prevlndex=0; 
int curIndex=Q; 

25 

if (str null) { 
return (str) ; 

} 

30 while ( (curlndex=str . indexOf (" ■ ",prevlndex) ) >= 0) { 

str=str. substring (0, curlndex) +" 1 "+str. substring (curlndex) ; 
prevIndex=curIndex+2 ; 

) 

35 return (str); 

) 

public static Connection makeConnection () { 
Connection con=null; 
40 try { 

//if (oraDriver == null) { 
if (ods — null) { 

String JDBCURL=null; 
String user=null; 
45 String pwd=null; 

Properties p = new Properties () ; 
p . load (ClassLoader . get SystemResourceAs Stream ( 
"Connection. properties") ) ; 
50 JDBCURL = p. get Property ("JDBCURL") ; 

user = p.getProperty ("user") ; 
pwd = p . getProperty ( "pwd" ) ; 

Debug. doLog ("Connecting to: "+JDBCURL+", with: n +user+"/*****" , 
55 Debug. WARN); 

ods = new OracleConnectionCachelmpl () ; 
ods . setURL (JDBCURL) ; 



137 



WO 02/059793 PCT/US01/42867 
ods . settiBR: (user) ; 
ods . setPassword (pwd) ; 



ods . setMaxLimit (20) ; 

5 

//System. out. println ("oraDriver is null, setting to: 
M +JDBCDriver) ; 
//oraDriver- (Driver) 

Class . f orName (SQLUtil . JDBCDriver) . newlnstance ( ) ; 

10 } 

//con=DriverManager .getConnection (SQLUtil . JDBCURL) ; 
//con=oraDriver. connect (SQLUtil. JDBCURL, null) ; 
con=ods . getConnection ( ) ; 

} 

15 catch (SQLException sqle) { 

sqle.printStackTrace () ; 

} 

catch (Exception e) { 
e . printStackTrace ( ) ; 

20 } 

return (con) ; 

} 

/* 

25 public static Hashtable checkConnection (Connection con, 

String connName) { 

Hashtable h =» new Hashtable ( ) ; 
Boolean b; 

30 

if (con — null) { 

DBConnect ionManager connMgr=DBConnectionManager . getlnstance ( ) ; 
con=connMgr . getConnection (connName) ; 
b=new Boolean (true) ; 
35 } 

else { 

b~new Boolean ( false ) ; 
) 

h .put ( "connection" , con) ; 
40 h.put ("needTod08e",b) ; 

return (h) ; 
} 

*/ 

45 public static void main (String [] args) { 

. System. out. println ("orig Str: n +args[0]); 
System. out. println ("new Str: "+processSingleQuote (args [0] ) ) ; 
System. out .println ("null Test: n +processSingleQuote (null) ) ; 

} 

50 ) 

Schemalive/WEB-INF/classes/dbUtils /TableDes crip tor . java 

// $Revision: 2.3 $ 
55 // $Date: 2001/10/30 01:35:53 $ 

package dbUtils; 
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import j aya . io . * ; 
import j ava . sql „ * ; 
import java.util.*; 



import common.*; 



import HTMLOtils.*; 

import j avax . servlet . j sp . * ; 

public class TableDescriptor implements j ava -io .Serial izable { 

public static final String vers ion_dbUtilsJTableDescriptor_j ava - 
n $Revision: 2.3 $ n ; 



public static final int DisplayAllNotNullable=0; 
public static final int DisplayAllWritable=l; 

public static final int TABLE- 0 ; 
public static final int VIEW=1; 

private String database; 
private String table; 
private String dbConnection; 

private String where; 
private String orderBy; 
private String keyField; 

private String viewSelect; 
private int tdType; 



private ResultSetMetaData rsmd; 
private MetaData[] columns; 

private Cus t oraDr ill Down [ ] cdd; 

private Hashtable foreignCDDs; 
private CustomDropDown primaryCDD; 

private static JspWriter out = null; 



// A list of fields to be shown. This is initialized because there will 
// always be a default list of displayFields 
private Vector displayFields-new Vector (); 
private Vector f ormattedFields=new Vector (); 

// What gets shown in a constraint picklist (space-delimited) . This is 
// not initialized because it may not be used, 
private Vector constraintFields=null; 



// A hash reference to constraints where key is a String (referenceing 
// a particular field) and value is a reference to another 
// TableDescriptor Object. This is not initialized because it may not 
// be used 

private Hashtable constraints^null; 

public TableDescriptor (String database, String table, 
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String dbConnectjPW) { 

this (database, table, dbConnection r null) ; 

) 

5 public TableDescriptor (String database, String table. 

String dbConnection, JspWriter out) { 

this.out=out; 
this . da tabase=dat abase; 
10 this . table~table; 

this . dbConnect ion=dbConnection ; 

foreignCDDs=new Hashtable(); 

15 try { 

Connection con =» SQLUtil .makeConnection () ; 

if (con == null) { 

throw new SQLException ("Can' t get connection."); 

20 } 

Statement stmt = con . createStatement () ; 

// let's see if there a table comments for ordering the 
// the rows 
25 ResultSet rs = 

stmt- executeQuery ("select comments from user_tab_comments"+ 
" where tablejname= ' "+table . toUpperCase ( ) + " ' and n + 
"comments is not null"); 
StringBuffer qStrBuff = new StringBuffer ("SELECT * FROM "+ table ) ; 
30 if (rs.nextO) { 

String comments=rs . getString ( 1 ) ; 
int endTag=0; 

int begTag=comments . indexOf ("<cl>") ; 
if (begTag >= 0) { 
35 endTag=comments . indexOf ("</cl>") ; 

qStrBuff ■ new StringBuffer ("SELECT "); 
while (endTag >= 0) { 

String column=comments . substring (begTag+"<cl>" . length ( ) , 
endTag) ; 

40 qStrBuff .append (column*", ") ; 

begTag=comments. indexOf ("<cl>", endTag) ; 
endTag=comments . indexOf ("</cl>" , endTag+1) ; 

} 

qStrBuff . deleteCharAt (qStrBuff . length ( ) -1 ) ; 
45 qStrBuff .append (" FROM "+table) ; 

} 

// parse for customdropdown 

if (0 < (endTag=comments. indexOf ("</sql>") ) ) { 
50 begTag=comments . indexOf ("<sql>") +"<sql>" . length () ; 

String customDropDownSQL=comments . substring (begTag, endTag),. 

toUpperCase ( ) . trim ( ) ; 

if (Debug. areDebugging) { 

Debug. doLog (getTable ()+": Setting Primary CDD to: "+ 
55 customDropDownSQL, Debug. INFO) ; 

} 

setPrimaryCDD (customDropDownSQL) ; 

} 
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) 

if (Debug. are Debugging) { 

Debug. doLog( n TableDesctiptor qStrBuff: n +qStrBuff, Debug. INFO) 

) 

// fill in metaData 

// More efficient query hack suggested by Rob 
rs = stmt. executeQuery (qStrBuff .toSt ring () ) ; 

rsmd = new MetaData (rs .getMetaData ()) ; 

// set the displayFields 
setDefaultDisplayFields () ; 
setDefaultFormattedFields () ; 

cdd=new CustomDrillDown [displayFields . size () 3 ; 
setDefaultConstraintFields () ; 

// don't need the database connection anymore 
rs. close () ; 
stmt . close () ; 
con.closeO; 

} 

catch (SQLException sqle) { 

outputlnfo ( ^ <blockquote><pre> ,1 +sqle+ ,, </pre></bloc]cquote> ,, ) ; 
sqle.printStackTrace () ; 

} 

catch (Exception e) { 
e.printStackTrace () ; 

} 

} 

public String getDatabase () { 
return (database) ; 

} 

public String getTable() { 
return (table) ; 

) 

public String getDBConnection () { 
return (dbConnect ion) ; 

} 

public int getTDType ( ) { 
return (tdType) ; 

} 

public void setTDType (int tdType) { 
this . tdType=tdType; 

} 

public String getViewSelect () { 
return (viewSelect) ; 

} 

public void setViewSelect (String viewSelect) { 
this . viewSelect=viewSelect; 
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} 

public String getKeyFieldO { 
return (keyField) ; 

5 } 

public boolean setKeyField (String keyField) 
throws SQLException 

{ 

10 // Make sure that the keyfield exists in this table 

if (findColumnName (keyField) — 0) { 
return (false) ; 

) 

this . keyField=keyField; 
15 return (true) ; 

} 

public String getOrderByO { 
return (orderBy) ; 

20 } 

public boolean setOrderBy (String orderBy) 
throws SQLException 

{ 

25 // Make sure that the keyfield exists in this table 

if (findColumnName (orderBy) — 0) { 
return (false) ; 

} 

this . orderBy=orderBy ; 
30 return (true) ; 

> 

public String getWhere() { 
return (where) ; 

35 } 

public void setWhere (String where) { 
this .where=where; 

} 

40 

public CustomDrillDown getCustomDrillDown (int index) { 
if (index < 0 || index >= cdd. length) { 
return (null) ; 

) 

45 return (cdd [index] ) ; 

} 

public void setCustomDrillDown (CustomDrillDown cdd, int index) { 
if (index >= 0 && index < this .cdd. length) { 
50 this .cdd [index] -cdd; 

} 

) 

public CustomDropDown getForeignCDD (String columnName) { 
55 return ( (CustomDropDown) f oreignCDDs . get (columnName) ) ; 

} 

public void setForeignCDD (String columnName, String sqlStr) { 
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f oreignCDDs .piW^columnName, new CustomDroppb@Tpg3!^J]8W^ 

} 

public CustomDropDown getPrimaryCDD () { 
return (primaryCDD) ; 

} 

public void setPrimaryCDD (String sqlStr) { 
priraaryCDD=new CustomDropDown {sqlStr) ; 

} 

public void addFormattedField (String field) { 

formattedFields.add(TableDescriptorDisplay.getFormattedLabel (field) ) ; 

} 

public void addDisplayField (String field) 
throws SQLException 

{ 

// normalize field 

String fieldUpper « field. toUpperCase () ; 

// shouldn't already exist in the displayFields vector 
if (displayFields. indexOf (fieldUpper) != -1) { 

return; 

} 

// must be a valid field in the table 
int index=0; 

if ( (index=findColumnName (fieldUpper) ) =» 0) { 
return; 

} 

// must be writable 
if ( Irsmd.isWr it able (index) ) { 
return; 

} 

// now we can add it 
displayFields . add (fieldUpper) ; 

) 

public String getFormattedField (int index) { 

return ( (String) f ormattedFields . elementAt (index) ) ; 

} 

public String getDi splay Fie Id (int index) { 

return ( (String) displayFields . elementAt (index) ) ; 

) 

public boolean isFormattedField (String f ormattedField) { 
return (f ormattedFields. contains ( format tedFi eld) ) ; 

} 

public boolean isDisplayField (String displayField) { 
//normalize displayField 

String displayFieldUpper=di splay Field. toUpperCase () ; 
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return (displa$Welds . contains (displayFieipjfg^FWiU 

} 

public void clearFormattedFields ( ) { 
5 formattedFields=»new Vector (); 

} 

public void clearDisplayFields () { 
displayFields=new Vector ( ) ; 

10 } 

public Enumeration forma ttedFields < ) { 
return ( f ormattedFields . elements ( ) ) ; 

} 

15 

public Enumeration displayFields {) { 
return {displayFields .elements () ) ; 

} 

20 public String removeFormattedField (int index) { 

return ( (String) f ormattedFields . remove (index) ) ; 

} 

public String removeDisplayField (int index) { 
25 return ( (String) displayFields . remove (index) ) ; 

} 

public void addConstraintField (String field) 
throws SQLException 

30 { 

// normalize field 

String f ieldUpper«f ield . toOpperCase ( ) ; 

// shouldn't already exist 
35 if (constraintFields != null && 

constraintFields . indexOf (fieldUpper) != -1) 

{ 

return; 

) 

40 

// must be a valid field in the table 
if (findColumnName (fieldUpper) — ■ 0) { 
return; 

} 

45 

// must be in the display vector 
if (displayFields, indexOf (fieldUpper) — -1) { 
return; 

> 

50 

if (constraintFields — null) { 
constraintFields=new Vector (); 

} 

constraintFields . addElement (fieldUpper) ; 

55 } 

public String getConstraintField(int index) { 
return ( 
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(constrainWPelds==null) ? 
null: 

(String) constraintFields . elementAt (index) 

); 

5 } 

public boolean isConstraintField (String constraintField) { 
//normalize constraintField 

String cons traintFieldUpper=cons traintField . toUpperCase ( ) ; 
10 return (constraintFields . contains (constraintFieldUpper) ) ; 

} 

public void clearConstraintFields () { 
if (constraintFields != null) { 
15 constraintFields=new Vector (); 

} 

} 

public Enumeration constraintFields () { 
20 return ( 

(constraintFields==null) ? 
null: 

constraintFields . elements ( ) 

); 

25 ) 

public void setDefaultConstraintFields () 
throws SQLException 

{ 

30 if (getCons traintField (0) != null) { 

// constraintFields have already been set 
return; 

} 

35 // this method will set constraint fields IF none 

// have already been set according to the following: 

// 1) If there are columns named: first_name, middle_name, 

// and/or last_name they will all be added 

// 2) If any column ends with _name it will be added 

40 

// check for first, middle , and/or last: 
boolean f oundNamePart=f alse; 
if (findColumnName("FIRST_NAME n ) != 0) { 
addConstraintField( n FIRST_NAME") ; 
45 foundNamePart=true; 
) 

if (findColumnName("MIDDLE_NAME n ) != 0) { 
addCons traintField ( n MIDDLE_NAME n ) ; 
f oundNamePart=true ; 

50 } 

if (findColumnName( ,f LAST_NAME n ) != 0) { 
addConstraintField( n LAST_NAME") ; 
f oundNamePart=true ; 

} 
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// if no name part was found, let's add the first column ending 

// in _name 

if ( ! f oundNamePart) { 
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ResultSetM^KData rsmd=getMetaData ( ) ; 
String constraintFieldName; 

for (int i=l;i<=rsmd.getColumnCount () ;i++) { 
if ( (constraintFieldName= 

rsmd. getColumnName (i) ) . end sWi th { " NAME") ) 

{ 

addConstraintField (constraintFieldName) ; 
break; 

} 

} 

} 



public String removeConstraintField (int index) { 
return ( 

(constraintFields==null) ? 
null : 

(String) constraintFields . remove (index) 

); 

) 

public ResultSetMetaData getMetaData ( ) { 
return (rsmd) ; 

} 

public int findColumnName (String name) throws SQLException { 
for (int i=l;i<=rsmd.getColumnCount () ;i++) { 

if (rsmd. getColumnName (i) . equals IgnoreCase (name) ) { 
return (i) ; 

} 

) 

return (0) ; 



public void setDef aultFormattedFields () 
throws SQLException 

{ 

for (int i=l;i<=*rsmd.getColumnCount () ;i++ ) { 
if (rsmd. isWr it able (i) ) { 

addFormattedField (rsmd. getColumnName (i) ) ; 

} 

} 

} 

public void setDef aultDisplayFields () 
throws SQLException 

{ 

setDef aultDisplayFields (TableDescriptor .DisplayAllWritable) ; 

} 

public void setDef aultDisplayFields (int mode) 
throws SQLException 

{ 

for (int i=l;i<=rsmd.getColumnCount () ;i++) { 

if (rsmd.isNullable (i) != ResultSetMetaData. columnNullable && 
rsmd. is Writ able (i) ) 

{ 
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addDispJByfcield(rsmd.getColumnName (P*0" 

} 

else if (mode.— TableDescriptor . DisplayAllWritable && 
rsmd. isWritable (i) ) 

{ 

addDisplayField(rsmd.getColumnName (i) ) ; 

} 

} 

} 

public TableDescriptor putConstraintForView (String columnName, 
TableDescriptor td) 
throws SQLException 

{ 

String columnNameUpper^columnName . toUpperCase ( ) ; 

if (constraints == null) { 

constraints = new Hashtable () ; 

> 

return ( (TableDescriptor) constraints .put (columnNameUpper, td) ) ; 



public TableDescriptor putConstraint (String columnName, 
TableDescriptor td) 
throws SQLException 

{ 

// normalize columnName 

String columnNameDpper=columnName - toUpperCase ( ) ; 
int columnlndex; 

// Check to see if columnName exists 

if ( (columnIndex=f indColumnName (columnNameUpper) ) — 0) { 
return (null) ; 

} 

// Make sure it is in the displayFields 
if (displayFields. indexOf (columnNameUpper) < 0) { 
return (null) ; 

} 

// Make sure that the key field exists and type matches 
String f oreignKeyField«td. getKeyField ( ) ; 
if (foreignKeyField == null) { 
return (null) ; 

} 

int f oreignColumnIndex=td . f indColumnName ( foreignKeyField) ; 
int foreignColumnType= 

td. getMetaData () . getColumnType (f oreignColumnlndex) ; 
int columnType=rsmd. getColumnType (columnlndex) ; 
if (columnType != foreignColumnType) { 
return (null) ; 

) 

if (constraints — null) { 

constraints = new Hashtable ( ) ; 

} 

//setDefaultConstraintFields (td) ; 

return ( (TableDescriptor ) constraints .put (columnNameUpper, td) ) ; 
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public TableDescriptor getConstraint (String p©}jrbIt|p^di^5Pt 
//normalize columnName 

String columnNaraeUpper^columnName . toUpperCase ( ) ; 

5 return ( 

(constraints=null) ? 
null: 

(TableDescriptor) constraints . get (columnName Upper) 

); 

10 } 

public TableDescriptor removeConstraint (String columnName) { 
//normalize columnName 

String columnNameOpper=columnName . toUpperCase ( ) ; 
15 return ( (TableDescriptor) constraints . remove (columnNameUpper) ) ; 

) 

public Enumeration constraintKeys () { 
return (constraints . keys ( ) ) ; 

20 } 

public Enumeration constraintElements () ( 
return (constraints. elements () ) ; 

} 

25 

public String getNullableString (int isNullable) { 

if (isNullable — > ResultSetMetaData.columnNullable) { 
return ("columnNullable n ) ; 

} 

30 else if (isNullable == Result SetMe taData. columnNoNulls) { 

return ("columnNoNulls") ; 

} 

else if (isNullable == ResultSetMetaData. columnNullableUnknown) { 
return ("columnNu 11 ableUn known") ; 

35 } 

else { 

return (" Invalid isNullable value"); 

) 



40 



} 

class MetaData implements ResultSetMetaData, java. io. Serializable { 
private int columnCount; 



private String [] catalogNames; 

45 private String [] columnClassNames; 

private int [J columnDisplaySizes; 

private String [] columnLabels; 

private String [] columnNames; 

private int[] columnTypes; 

50 private String [J coluranTypeNames; 

private int[] precisions; 

private int[] scales; 

private String [J schemaNames; 

private String [] tableNames; 

55 private boolean [] isAutoIncrements; 

private boolean [] isCaseSensitives; 

private boolean [] isCurrencies; 

private boolean [] isDef initelyWritables; 
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private int [] ^KNullables; 

private boolean [] isReadOnlys; 

private boolean [] isSearchables; 

private boolean [] isSigneds; 

private boolean!] isWritables; 

public MetaData (ResultSetMetaData rsmd) { 
try { 

columnCount — rsmd. get ColumnCount () ; 
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catalogNames-new String [columnCount] ; 

columnClassNames=new String [columnCount] ; 

columnDisplaySizes^new int [columnCount] ; 

columnLabels=new String [columnCount] ; 
15 columnNames=new String [columnCount] ; 

columnTypes-new int [columnCount] ; 

columnTypeNames=new String [columnCount] ; 

precisions=new int [columnCount] ; 

s cales=new int [ columnCount ] ; 
20 schemaNames=new String [columnCount] ; 

tableNames=new String [columnCount] ; 

isAutoIncrements=new boolean [columnCount] ; 

isCaseSensitives=new boolean [columnCount] ; 

isCurrencies=new boolean [columnCount] ; 
25 isDefinitelyWritables=new boolean [columnCount] ; 

isNullables^new int [columnCount] ; 

isReadOnlys=new boolean [columnCount] ; 

isSearchables=new boolean [columnCount] ; 

isSigneds=new boolean [columnCount] ; 
30 isWritables=new boolean [columnCount] ; 

for (int i=0;i<columnCount;i++) { 

catalogNames [i] =rsmd.getCatalogName (i+1) ; 
35 columnClassNames [i]="dunno n ; 

//buggy bitch! 

//rsmd.getColumnClassName (i+1) ; 

columnDisplaySizes [i]=rsmd.getColumnDisplaySize (i+1) ; 

columnLabels [i] =rsmd . getColumnLabel (i+1) ; 
40 columnNames [i]=rsmd.getColumnName (i+1) ; 

columnTypes [ i ] =r smd . getColumnType ( i+1 ) ; 

columnTypeNames [i] =rsmd.getColumnTypeName (i+1) ; 

precisions [i]=rsmd.getPrecision (i+1) ; 

scales [i]=rsmd.getScale (i+1) ; 
45 schemaNames [i]=rsmd.getSchemaName (i+1) ; 

tableNames [i]=rsmd.getTableName (i+1) ; 

isAutoIncrements [i]=rsmd.isAutoIncrement (i+1) ; 

isCaseSensitives [i] =rsmd. isCaseSensitive (i+1) ; 

isCur,rencies [i] =rsmd. isCurrency (i+1) ; 
50 isDef initelyWritables [i]=rsmd. isDef initelyWri table (i+1) ; 

isNullables [i]=rsmd. isNullable (i+1) ; 

isReadOnlys [i]=rsmd. isReadOnly (i+1) ; 

isSearchables [i)=rsmd.isSearchable (i+1) ; 

isSigneds [i]=rsmd. isSigned (i+1) ; 
55 isWritables [i]=rsmd. isWritable (i+1) ; 

) 

} 

catch (SQLException sqle) { 
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sqle.pr3KstackTrace() ; 

) 

} 

public int getColumnCount () { 
return (coluranCount) ; 

} 

public String getCatalogName (int index) { 
return (catalogNames [index-1] ) ; 

) 

public String getColumnClassName (int index) { 
return (columnClassNames [index-1] ) ; 

) 

public int getColumnDisplaySize (int index) { 
return (columnDisplaySizes [index-1] ) ; 

) 

public String getColumnLabel (int index) { 
return (columnLabels [index-1] ) ; 

} 

public String getColumnName (int index) { 
return (columnNames [index-1] ) ; 

} 

public int getColumnType (int index) { 
return (columnTypes [index-1] ) ; 

) 

public String getColumnTypeName ( int index) { 
return (columnTypeNames [index-1] ) ; 

) 

public int getPrecision (int index) { 
return (precisions [index-1] ) ; 

> 

public int getScale(int index) { 
return (scales [index-1] ) ; 

} 

public String getSchemaName (int index) { 
return (schemaNames [index-1] ) ; 

} 

public String getTableName (int index) { 
return (tableNames [index-1] ) ; 

} 

public boolean isAuto Increment (int index) { 
return (is Autolncrements [index-1] ) ; 

} 

public boolean isCaseSensitive (int index) { 
return (isCaseSensitives [index-1] ) ; 
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} 

public boolean isCurrency (int index) { 
return (isCurrencies [index-1] ) ; 

) 

public boolean isDef initelyWritable (int index) { 
return (isDef initelyWritables [index-1] ) ; 

} 

public int isNullable (int index) { 
return (isNullables [index-1] ) ; 

} 

15 public boolean isReadOnly (int index) { 

return (isReadOnlys [index-1 J ) ; 

} 

public boolean isSearchable (int index) { 
20 return (isSearchables [index-1] ) ; 

} 

public boolean isSigned(int index) { 
return (isSigneds [index-1] ) ; 

25 ) 

public boolean isWritable (int index) { 
return (isWri tables [index-1] ) ; 

> 

30 } 

private void output Info (String infoStr) { 
try { 

if (Debug. areDebugging) { 
35 Debug . doLog (inf oStr, Debug . INFO) ; 

} 

if (out !=> null) { 

out .println (inf oStr) ; 
out . flush () ; 

40 } 
) 

catch (IOException ioe) { 
ioe . printStack-Trace ( ) ; 

) 

45 ) 
) 

Schemalive/WEB-INF/classes/dbUtils/ViewGenerator . java 

50 // $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package dbUtils; 

55 import java.io.*; 
import java.sql.*; 
import java.util.*; 
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import common.*; 

import javax. servlet . jsp.*; 

5 //import dbPoolUtils . *; 

public class ViewGenerator { 

public static final String version_dbUtils_ViewGenerator_java = 
10 "$Revision: 2.3 $ n ; 

public static final int MaxNameLen =30; 

private TableDescriptor td; 

private StringBuffer columnList » new StringBuf f er () ; 
15 private StringBuffer fromList = null; 

private StringBuffer whereList = new StringBuf fer () ; 

private StringBuffer orderByList = new StringBuf fer () ; 

private StringBuffer nextAlias = new StringBuffer ("A" ) ; 

private StringBuffer firstAlias = new StringBuf fer () ; 
20 private StringBuffer leftAlias = new StringBuf fer () ; 

private StringBuffer rightAlias =» new StringBuf fer () ; 

private boolean checkExist => false- 
private JspWriter out - null; 

25 

private void outputlnfo (String infoStr) { 
try { 

if (Debug -areDebugging) { 

Debug . doLog (inf oStr , Debug . INFO) ; 

30 } 

if (out null) { 

out.println (infoStr) ; 
out . flush ( ) ; 

} 

35 ) 

catch (IOException ioe) { 
ioe . printStackTrace ( ) ; 

} 

) 

40 

public ViewGenerator (TableDescriptor tdParm, JspWriter myOut) { 
this (tdParm, true, false, myOut) ; 

) 

45 public ViewGenerator (TableDescriptor tdParm) { 

this (tdParm, true, false, null) ; 

) 

public ViewGenerator (TableDescriptor tdParm, boolean executeSQL) { 
50 this (tdParm, executeSQL, false, null) ; 

} 

public ViewGenerator (TableDescriptor tdParm, 
boolean executeSQL, boolean myCheckExist, 
55 JspWriter myOut) 

{ 

out = myOut; 
td = tdParm; 
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checkExist = iS^heckExist; 

fromList = new StringBuf fer (td.getTable () +" A"); 



n t n . 



String qStr= n SELECT view_name FROM USER_VIEWS WHERE view_name = ,n + 
5 getViewName (td.getTable () )+"' OR view_name « ' "+td. getTable ( ) + 

if (checkExist) { 
try { 

Connection con = SQLUtil .makeConnection () ; 
10 Statement stmt = con. createStatement () ; 

ResultSet rs - stmt.executeQuery (qStr) ; 
if (rs.nextO) { 
rs. close () ; 
stmt- close () ; 
15 con.close(); 

return ; 

} 

else { 

rs .close () ; 
20 stmt .close () ; 

con. close () ; 

} 

} 

catch (SQLException sqle) { 
25 sqle.printStackTrace () ; 

} 

} 

outputInfo( n <blockquote>Generating view for table: "+ td.getTable () + 
30 " named: n +getViewName (td.getTable () ) + n </blockquote>") ; 

buildView<) ; 

columnList=new StringBuf f er (columnList . toString ( ) . trim ( ) ) ; 
fromList=new StringBuf fer (fromList .toString () .trim() ) ; 
35 whereList=new StringBuf fer ( whereList . toString ( ) . trim ( ) ) ; 

orderByList=new StringBuf fer (orderByList . toString ( ) . trim ( ) ) ; 

if (executeSQL) { 
executeViewSQL ( ) ; 

40 } 



public static String getViewName (String baseTable) { 
45 String proposedName » baseTable+ , •_VIEW ,, ; 

proposedName » proposedName . substring (Math . max ( 0 , 
proposedName . length ( ) -MaxNameLen) ) ; 
return (proposedName) ; 

} 

50 

public String getViewSQL ( ) { 
return (getViewSQL ( false) ) ; 



55 public String getViewSQL (boolean createView) { 

String viewSQL= w SELECT n +columnList+ w FROM n +fromList; //+" WHERE 
n +whereList; 

if (whereList. length () > 0) { 
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viewSQL+=" ^WfcRE n +whereList; 

} 

if (createView) { 

vie wSQL= " CREATE OR REPLACE VIEW n +getViewName (td.getTable () ) +" AS "+ 
5 viewSQL; 
} 

return (viewSQL) ; 

} 

10 private void executeViewSQL ( ) { 

try { 

String viewSQL= n CREATE OR REPLACE VIEW n +getViewName (td. get Table ()) + 
" AS SELECT "+columnList+" FROM n +f romList; //+" WHERE "+whereList; 
if (whereList. length () >0) { 
15 viewSQL+= w WHERE n +whereList; 

} 

if (Debug. areDebugging) { 

Debug. doLog ("viewSQL: •»+ viewSQL, Debug. INFO) ; 

20 } 

Connection con = SQLUtil.makeConnection () ; 

Statement stmt - con. creates tat ement () ; 

stmt . executeQuery (viewSQL) ; 

stmt .close () ; 
25 con. close (); 

} 

catch (SQLException sqle) { 

outputlnfo ( w <blockquote><pre>"+sqle+ ,, </pre></bloc)cquote> n ) ; 
sqle .prints tackTrace ( ) ; 

30 } 
} 

public static void main (String [J args) { 

DataDictionary dd = DataDictionary.getlnstance (args [0] , args [1] ) ; 
35 if (args. length > 2) { 

DataDictionaryTD ddtd=dd.getDataDictionaryTD (args [2] ) ; 
if (ddtd != null) { 

new ViewGenerator (ddtd) ; 

} 

40 else { 

System.out.println(args[2]+ ,, is a bad table name!* 1 ); 

} 

} 

else { 

45 Set ddtdSet = dd. tables () ; 

Object [] ddtdAry - ddtdSet . toArray ( ) ; 
for (int i=0;i<ddtdAry. length; i++) { 

DataDictionaryTD ddtd=dd. get DataDictionaryTD ( (String) ddtdAry [i] ) ; 
ViewGenerator vg - new ViewGenerator (ddtd) ; 

50 } 
} 

} 

private void buildView() { 
55 Enumeration dfEnum=td. display Fie Ids () ; 

while (dfEnum.hasMoreElements () ) { 

String columnName = (String) dfEnum.nextElement () ; 
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DataDictioflWy dd = 

DataDict ionary . getlnstance { td . getDatabase ( ) , 
td. getDBConnection ( ) ) ; 

TableDescriptor tdF = null; 
String customColumnSQL = null; 

TableDescriptor tdl - td. get Constraint (columnName) ; 
if (tdl != null) { 

tdF = dd. getDataDictionaryTD (tdl . getTable () ) ; 

// check for custom column 

CustomDropDown myCDD = td. get ForeignCDD (columnName) ; 
if (royCDD » = null) { 

customColumnSQL = myCDD . getSQLStr () ; 
if (Debug. areDebugging) { 

Debug. doLog ("Found custom column for "+ 

td. getTable () + n . n +columnName+" . n , Debug. INFO) ; 

} 

} 

} 

TableDescriptor td2 = null; 

if (columnName . endsWith ( "ENTRY_DATE" ) | | columnName . endsWith ( 
"LAST_MODIFIEDJDATE")) { 

columnList append ("TO_CHAR (A. "+columnName4- 
", 'MM/DD/RRRR HH24:MI:SS') AS n ) ; 

columnList - append (columnName+" , " ) ; 

} 

else if (columnName. endsWith ("J3ATE") ) { 

columnList • append ("TO^CHAR (A. "+columnName+ 

", 'MM/DD/RRRR') AS ") ; 
columnList . append (columnName+ n , ") ; 

) 

else if ( columnName. ends With ("_FLAG") ) { 

columnList . append ("Show_Boolean (A. "+columnName+" ) AS ") ; 
columnList . append (columnName . substring ( 0 , 
columnName. indexOf ("_FLAG") )+", "); 

} 

else if (customColumnSQL != null) { 

// parse custoColumnmSQL and add to columnList, 
// fromList, whereList (and orderByList?) 

// first, let's break it up 

StringBuffer selectPart - new StringBuf fer () ; 
StringBuffer fromPart « new StringBuf fer () ; 
StringBuffer wherePart = new StringBuf fer () ; 
StringBuffer orderByPart =» new StringBuf fer () ; 
int begPart = customColumnSQL. indexOf ("SELECT") 4- 

" SELECT" . length ( ) ; 
int endPart = customColumnSQL. indexOf ("FROM") ; 
selectPart . append (customColumnSQL . substring ( 
begPart, endPart) .toUpperCase () .trim() ) ; 
begPart = endPart-f "FROM" .length () ; 
endPart = customColumnSQL. indexOf ("WHERE") ; 
if (endPart > begPart) { 

fromPart . append (customColumnSQL . substring (begPart, 
endPart) .toUpperCase () .trim() ) ; 

begPart = endPart + "WHERE " . length ( ) ; 

endPart - customColumnSQL. indexOf ("ORDER BY") ; 
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if (SBiPart > begPart) { 

wherePart . append (customColumnSQL. substring (begPart, 

endPart) .toUpperCase () .trim() ) ; 
begPart = endPart + n ORDER BY" .length () ; 
5 orderByPart . append ( customColumnSQL . substring ( 

begPart) . toUpperCase ( ) - trim ( ) ) ; 

} 

else { 

wherePart . append (customColumnSQL . substring (begPart) . 
10 toUpperCase ( ) . trim ( ) ) ; 

} 

) 

else { 

endPart = custoraColumnSQL. indexOf ( "ORDER BY") ; 
15 if (endPart > begPart) { 

fromPart. append (customColumnSQL. substring (begPart, endPart) 
toUpperCase ( ) . trim ( ) ) ; 

begPart - endPart +"ORDER BY" . length { ) ; 
orderByPart . append (customColumnSQL . substring (begPart) - 
20 toUpperCase ( ) , trim ( ) ) ; 

} 

else { 

fromPart . append (customColumnSQL. substring (begPart) . 
toUpperCase (). trim ()) ; 

25 } 
> 

if (Debug. areDebugging) { 

Debug . doLog ( " ViewGenerator . selectPart ( 324 ) : 
"+selectPart, Debug. INFO) ; 
30 Debug. doLog ("ViewGenerator. fromPart (325) : "+fromPart, Debug. 

INFO) ; 

Debug. doLog(" ViewGenerator. wherePart (326) : "+wherePart, Debug. 
INFO) ; 

} 



35 



// now we need to map aliases 
Hashtable aliasMap=new Hashtable(); 



int prevComma =» 0; 
40 int curComma = 0; 

String fromString = fromPart .toString () .trim ()+", "; 
while ( 0 < (curComma=f roraString . indexOf ( ' , ' , prevComma) ) ) { 
String keyAlias=*null; 
45 StringTokenizer st = new StringTokenizer (fromString. substring ( 

prevComma, curComma) ) ; 
while (st.hasMoreTokens () ) { 
keyAlias=s t . nextToken ( ) ; 

) 

50 if (laliasMap.containsKey (keyAlias) ) { 

aliasMap.put (keyAlias, "") ; 

} 

prevComma=curComma+l ; 

) 

55 

// now we can replace aliases in the different parts 
//Enumeration aliasEnum = aliasMap. keys () ; 
Set aliasKeySet - aliasMap. keySet () ; 
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Object [flKliasKeyArray » aliasKeySepi (^^fJ^JlJ? 
Arrays . sort (aliasKeyArray) ; 

for (int j=0; j<aliasKeyAr ray. length ;j++) { 
String nAlias = getNextAlias (). toString () ; 
if ( Debug. areDebugging) { 

Debug. doLog( n ViewGenerator (339) - origAlias "+aliasKeyArray 

w maps to n +nAlias, Debug. INFO) ; 

} 

aliasMap. put (aliasKeyArray [j ] , nAlias) ; 



StringBuffer [] partAry=new StringBuf f er [2] ; 
partAry [0] =selectPart; 
part Ary [ 1 ] —wherePart ; 

for (int j=aliasKeyArray.length-l; j>=0; j — ) { 
String keyAlias - (String) aliasKeyArray [j 3 ; 
String valueString = (String) aliasMap. get (keyAlias) ; 
for (int i=0; Kpart Ary. length; i++) { 

int dot=0; 

while (0 <= 

(dot=partAry[i] .toStringO . indexOf (keyAlias+" . n , dot) ) ) { 
if (Debug. areDebugging) { 

Debug. doLog ("About to replace: n +partAry [i] .toString 
() .substring (dot, dot+l)+" with: "+valueString, Debug. 
INFO) ; 

} 

partAry[i] .replace (dot, dot+keyAlias . length () ,valueString 
); 

dot+=valueString . length () +1; 

} 

) 

} 

// convert any INNER JOINs to OUTER JOINs... 
int start Join =0; 

int endJoin = wherePart . toString ( ) . indexOf ( "AND" , start Join) ; 
while (0 <= endJoin) { 

String joinPart = wherePart .substring (start Join, endJoin) ; 

int equalSign « joinPart .indexOf ("=") ; 

if ( (joinPart. indexOf (". n ) < equalSign) && 

( joinPart. last IndexOf (" .") > equalSign) && 
(joinPart. indexOf C(+) n > = -1)) 

{ 

wherePart. insert (endJoin, n (+) "); 
endJoin +« 4; 

} 

startJoin « endJoin + 3; 

endJoin = wherePart.toStringO .indexOf ("AND", startJoin); 

) 

if (startJoin < wherePart . length () ) { 

String joinPart = wherePart .substring (startJoin) ; 

int equalSign = joinPart .indexOf ("=") ; 

if ( (joinPart. indexOf (".") < equalSign) && 

( joinPart. last IndexOf ( n . M ) > equalSign) && 

(joinPart. indexOf ("(+)") =»-!)) 
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{ 

wherePart. append ( n (+) ") ; 

} 

} 

// need to replace aliases in fromPart 

f romPart=*new SfcringBuf f er (fromPart . toString ( ) . trim ( ) ) ; 

for (int j=aliasKeyArray. length- 1; j>=0; j — ) { 
String keyAlias= (String) aliasKeyArray [ j ] ; 
String valueString« (String) aliasMap . get ( keyAlias ) ; 
int preComma=0; 
int postComma=0; 

while ( 0 <= (postComma=f romPart . toString ( ) . indexOf ( 1 , ' , 
preComma) ) ) { 

// find space before alias 

int aliasLoc=f romPart . toString () .substring (preComma/ 
postComma) • lastlndexOf (" n +keyAlias) +1; 

if (aliasLoc > 0) { 

fromPart . replace (aliasLoc+preComma, 
aliasLoc+l+preComma, valueString) ; 

> 

preComma«postComma+valueString. length ()+l; // skip space 

} 

// get the last one 

int aliasLoc=fromPart. toString () . substring (preComma) - 
lastlndexOf ( n n +keyAlias) +1; 
if (aliasLoc > 0) { 

fromPart . replace (aliasLoc+preComma, aliasLoc+preComma+1 , 

valueString) ; 

) 

} 

if (Debug. areDebugging) { 

Debug . doLog ( "ViewGenerator . selectPart (423): 
"+selectPart f Debug. INFO) ; 

Debug. doLog("ViewGenerator. fromPart (424) : w +fromPart / Debug. 
INFO) ; 

Debug. doLog( w ViewGenerator .wherePart (425) : n +wherePart, Debug. 
INFO) ; 

} 

// need to strip first column out of selectPart 
// this is key that will give us the right match 
// for each record 

int comma = selectPart . toString ( ) . indexOf ( ' , • ) ; 

String keyPart - selectPart. toString () . substring [0, comma) ; 

selectPart .delete (0,comma+l) ; 

// need to kill AS if it exists 

int as = selectPart. toString () .indexOf ("AS "); 

if (as > 0) { 

selectPart=new StringBuffer (selectPart. toString () . substring (0, 
as) ) ; 

) 

// lop key off column name 

int key = columnName . indexOf ( n _KEY" ) ; 
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selectPSK. append (" AS "+ _ _ 

( ( key>0 ) ?columnNarae . substring (0, &eyf: cdlumnNamen ; 



5 columnList. append ( n n +selectPart+", n ); 

froiaList. append (", n +fromPart) ; 
whereList. append (" M +wherePart) ; 

whereList. append (" AND A. "+columnName+ n » M +keyPart+" (+) AND w ) ; 

} 

10 else if (tdl != null) { 

// look for custom column information 
boolean foundName = false; 

StringBuffer joinBuffer - new StringBuf fer ( ) ; 
15 try { 

firstAlias » new StringBuf fer (getNextAlias () .toString ()) ; 
rightAlias = new StringBuf fer ( nw ) ; 

20 while (! foundName) { 

ResultSetMetaData rsmdl = tdl . getMetaData ( ) ; 
for (int i=l; i <« rsmdl . getColumnCount () ; i++) { 
if (rsmdl.getColumnName(i) .endsWith ("_NAME W ) ) { 
foundName = true; 
25 break; 

} 

} 

if (! foundName) { 
30 String qStr= M SELECT a. table_name/ "+ 

w b.column__name FROM n + 

"user_constraints a, user_cons_columns b, "+ 
n user_constraints c, user_cons_columns d "+ 
"WHERE n + 

35 "a.constraint_type= , P l AND "+ 

"c.constraint^ype^'U' w + 

"AND c.table_name n +tdl .getTable () + n » AND n + 
w c.constraint_name « d.constraint_name AND "+ 
"b. column_name = d. column_name AND "+ 
40 n b.constraint_name = a*constraint_name n ; 

Connection con = SQLUtil.makeConnection () ; 
Statement stmt = con . createStatement () ; 
ResultSet rs = stmt . executeQuery (qStr) ; 
if (rs.nextO) { 
45 String tableName=*rs.getString (1) ; 

String keyFieldName=rs . getString (2) ; 

td2=dd. getDataDictionaryTD (tableName) ; 

50 fromList, append (", "+tdl .getTable {) +" n + 

(leftAlias = ( (rightAlias . length () «- 0)? 
firstAlias: rightAlias) ) ) ; 

whereList . append (left Alias+" . ,, +keyFieldName+ 
55 " » n + (rightAlias = getNextAlias ())+"." + 

td2.getKeyField()+" (+) AND M 

); 
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tdl«dd . getDataDictionar^^feftS .^c^Rjjsf ^{ ),> gj 

} 

else { 

rs. close () ; 
stmt. close () ; 

con .close () ; 
break; 

} 

rs. close () ; 
stmt. close () ; 



con. close () ; 

15 } 
> 

// now I am at a TD that has _NAME field(s) 
boolean f oundNamePart=false; 

20 if (tdl.findColumnName( n LAST_NAME n ) 1= 0 && 

tdl-findColumnName^FIRST^NAME") != 0 && 
tdl.findColumnNameCMIDDLE^NAME") != 0) 

{ 

columnList . append ( "Formatted_Name ( w +nextAlias+ 
25 • n . w +tdl.getKeyField()+") AS ") ; 

int keyIndex=columnName . indexOf ( "_KEY n ) ; 
if (keylndex >= 0) { 

columnList . append (columnName . substring { 0 , keylndex) + 

n n \ . 
r It 

30 } 

else { 

columnList . append (columnName + n , w ) ; 

} 

f romList . append ( n , n +tdl . getTable ( ) +" n +nextAlias ) ; 
35 whereList. append ( "A. "+0011111^31116+ " = n +firstAlias+" . n + 

tdF.getKeyField()+ n (+) AND ") ; 
f oundNamePart=true ; 

} 

if ( ! f oundNamePart) { 
40 ResultSetMetaData rsmd=tdl . getMetaData () ; 

for (int i=l;i<=rsmd.getColumnCount () ;i++) { 

if (rsmd.getColumnName(i) .endsWith ("_NAME") ) { 
String localColumnName — 

rsmd . getColumnName (i) . substring (0, 
45 rsmd.getColumnName (i) .indexOf ("_NAME n ) ) ; 

int keylndex » columnName . indexOf ( w _ KEY") ; 
String asName = (keylndex > 0)? 

columnName. substring (0, keylndex) : 
columnName; 

50 columnList. append (nextAlias+ n . "+ 

rsmd.getColumnName(i)+" AS "+ 
asName+ n , n 

); 

f romList. append (", "+tdl . getTable () +" n +nextAlias) ; 
55 whereList. append ( "A. n +columnName+ n » n + 

firstAlias+ M ."+ 
tdF.getKeyField()+ 
n (+) AND n • 
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); 

orderByList . append (locafCoTumnftamerT 

f oundNamePart=true ; 

break; 

} 

} 

if ( ! f oundNamePart) { 

columnList. append ("A. "+columnName+", ") ; 

) 

} 

} 

catch (SQLException sqle) { 
sqle.printStackTrace () ; 

} 

} 

else { 

columnList . append ("A. • , +columnName+ ,, r ") ; 

} 

} 

if (Debug. areDebugging) { 

Debug. doLog ("ViewGenerator . columnList (586) : 
n *columnList, Debug. INFO) ; 

Debug. doLog ("ViewGenerator . f romList (587) : "+f romList , Debug . INFO) ; 
Debug. doLog( n ViewGenerator. whereList (588) : w +whereList, Debug. INFO) ; 

} 

columnList.delete(columnList.length()-2 / columnList . length () ) ; 
if (whereList. length () > 4) 

whereList . delete (whereList . length ( ) -5 , whereList . length ( ) -1) ; 

} 

private StringBuffer getNextAlias () { 
int stub = nextAlias. length 

char lastChar[] = { nextAlias . charAt (stub) }; 
if (lastChar[0] — 'Z') 

nextAlias . replace (stub, stub-KL, "AA") ; 
else { 

lastChar [0]++; 

nextAlias. replace (stub, stub+1, new String (lastChar) ) ; 

} 

return (nextAlias) ; 

} 

} 

Schemalive/WBB-INF/classes/HTMLPtils/Balloon . java 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package HTMLUtils; 

import java.io.*; 
import java.sql.*; 
import java.util.*; 

import common . * ; 
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import j avax . servle^PJ sp . * / 

public class Balloon implements java. io. Serializable { 

5 public static final String version_HTMLUtils_Balloon_java = 

"$Revision: 2.3 $ w ; 
private static JspWriter out=null; 

private String id; 
10 private String msg; 

private int bSize; 

public Balloon (String myld,int myBSize, String myMsg) { 
this (myld, myBSize, myMsg, null) ; 

15 } 

public Balloon (String myld, int myBSize, String myMsg, JspWriter myOut) { 
id=myld; 
bSize=myBSize; 
20 msg=myMsg; 

out=myOut ; 

outputInfo( "Creating balloon with id: "+id+ n , bSize: rt +bSize+ 
n , msg: \n\t rt +msg) ; 

25 } 

public String getID() { 
return (id) ; 

} 

30 

public int getBSize() { 
return (bSize) ; 

} 

35 public String getMsg ( ) { 

return (msg) ; 

) 

private void outputlnf o (String infoStr) { 
40 try { 

if (Debug. areDebugging) { 

Debug. doLog (inf oStr, Debug. INFO) ; 

} 

if (out null) { 
45 out .println (inf oStr) ; 

out . flush ( ) ; 

} 

} 

catch (IOException ioe) { 
50 ioe . printSt ackTrace ( ) ; 

} 

} 

} 

55 Schemalive/WEB-INF/classes/HTMLUtils/BalloonHelp . java 

// $Revision: 2.4 $ 

// $Date: 2001/10/30 08:26:33 $ 
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package HTMLUtils; 

import java.io.*; 
5 import java.sql.*; 
import java.util.*; 
import common.*; 
import javax.servlet. jsp.*; 
import java.sql-*; 
10 import dbUtils.*; 

public class BalloonHelp implements java. io . Serializable { 

public static final String version_HTMLUtils_BalloonHelp_java = 
15 w $Revision: 2.4 $ rt ; 

private static BalloonHelp instance; 
private static JspWriter out « null; 
private static boolean rebuild = false; 

20 

private static Hashtable balloonNavHash=new Hashtable (); 
private static Hashtable balloonTableHash=new Hashtable (); 

private static String saveFile= n BalloonHelp. save"; 

25 

private BalloonHelp () { 
init(); 

} 

30 public static BalloonHelp ref reshlnstance (JspWriter myOut) { 

out = myOut; 

return (ref reshlnstance () ) ; 

} 

35 public static BalloonHelp ref reshlnstance () { 

rebuild=true; 
return (getlnstance ( ) ) ; 

} 

40 public static synchronized BalloonHelp getlnstance () { 

if (instance == null | | rebuild) { 
instance new BalloonHelp () ; 
rebuild=false; 

} 

45 return (instance) ; 

} 

private void init() { 

// Check to see if serialization file exists 
50 FilelnputStream filln=null; 

ObjectlnputStream objIn=null; 
try { 

if (rebuild) { 

throw new FileNotFoundException ( ) ; 

55 } 

filln=new FilelnputStream (saveFile) ; 
objIn=new ObjectlnputStream (filln) ; 
balloonNavHash= (Hashtable) obj In. readObject () ; 

163 



WO 02/059793 



PCT/US01/42867 



balloonTablP5ash= (Hashtable) objln. readjpjDgBCgrj;^^ 

objln .close () ; 

return; 

} 

catch (FileNotFoundException fnfe) { 

outputInfo("<b> About to build BalloonHelp</b><br>") ; 
buildBalloonHelp ( ) ; 
this . serialize ( ) ; 

} 

catch (IOException ioe) { 
ioe - printStackTrace ( ) ; 

} 

catch (ClassNotFoundException cnfe) { 
cnf e. printStackTrace () ; 

} 

) 

private void serialize () { 

Ob j ectOutput St ream ob j Out=null ; 
FileOutputStream filOut=null; 

try { 

filOut = new FileOutputStream ( saveFile) ; 
objOut =* new ObjectOutputStream (f ilOut) ; 

objOut .writeObject (balloonNavHash) ; 
objOut .writeObject (balloonTableHash) ; 
objOut. flush () ; 
ob j Out . close ( ) ; 

> 

catch (IOException ioe) { 
ioe . printStackTrace ( ) ; 

} 

) 

public Balloon getNavBalloon (String id) { 
return ( (Balloon) balloonNavHash. get (id) ) ; 

} 

public Enumeration getNavBalloonID3 () { 
return (balloonNavHash. keys ( ) ) ; 

} 

public Balloon getTableBalloon (String id) { 
return ( (Balloon) balloonTableHash. get (id) ) ; 

} 

public Enumeration getTableBalloonlDs () { 
return (balloonTableHash. keys () ) ; 

} 

private void buildBalloonHelp () ( 
Connection con=null; 
Statement stmt=null; 
ResultSet rs=null; 
try { 

con = SQLUtil.makeConnectionO ; 
stmt = con . createStateraent () ; 
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// get nav first 

String qStr = "SELECT Help_Object_Name, PopUp_Text FROM HELP_OBJECT " 
+ 

5 "WHERE UPPER (Help J)bject_Name) NOT LIKE , %.ASP% 1 "; 

rs = stmt .executeQuery (qStr) ; 
Balloon b=null; 

10 outputlnf o ( "<blockquote>" ) ; 

while (rs.nextO) { 

String id=rs . getString (1 ) ; 
String tip«rs . getString (2) ; 
15 if (id != null && tip != null) { 

// nav 

outputInfo( "Creating nav balloon: "+id+" - "+tip+"<br>") ; 
b » new Balloon (id, 150, tip) ; 
balloonNavHash . put (b . getID (),b); 

20 } 
} 

rs. close () ; 

25 qStr = 

"SELECT Help_Schema_Table, Help_Schema_Column, PopUp_Text FROM 
HELP_SCHEMA"; 

rs = stmt. executeQuery (qStr) ; 

30 while (rs.nextO) { 

String idTable=rs .getString (1) ; 
String idColumn=rs . getString (2 ) ; 
String t ip=rs. getString (3) ; 

35 if (idTable != null && idColumn != null && tip != null) { 

// data 

output Info ("Creating data ballon: "+idTable. toOpperCase () +" . "+ 
idColumn . toOpperCase ( ) + 
" - "+tip+"<br>") ; 

40 b = new Balloon (idTable. toUpperCase ( ) +" . "+ idColumn. toUpperCase 

() ,150, tip); 

balloonTableHash.put (b.getID() ,b) ; 

} 

) 

45 

outputlnf o ( "</blockquote>" ) ; 

} 

catch (SQLException sqle) { 
sqle. print StackTrace ( ) ; 

50 } 

finally { 
try { 

rs. close () ; 
stmt .close () ; 
55 con. close (); 

} 

catch (SQLException sqle) { 
sqle.printStackTrace () ; 
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) 

} 

} 

5 private void outputlnfo (String infoStr) { 

try { 

if (Debug. areDebugging) { 

Debug -doLog (infoStr, Debug. INFO) ; 

} 

10 if (out != null) { 

out .println (infoStr) ; 
out. flush () ; 

} 

} 

15 catch (IOException ioe) { 

ioe.printStackTrace () ; 

) 

> 

} 

20 

Schemalive/WEB-INF/classes /HTMLUtils/TableDescriptorDisplay . java 

// $Revision: 2.5 $ 

// $Date: 2001/10/30 08:26:33 $ 

25 

package HTMLUtils; 

import java.io.*; 

30 import dbUtils.*; 

import sessionUtils.*; 

import java.sql.*; 
import java -util . *; 

35 

import common.*; 

//import dbPoolUtils . * ; 

40 public class TableDescriptorDi splay { 

public static final String vers ion_HTMLUtils_TableDe scrip tor Display_ java * 
n $Revision: 2.5 

45 public static final int A110pper=l; 

public static final int ForURL =0; 
public static final int ForForm =1; 
public static final int ForJavaScript « 2; 

50 

public static String getDisplayLabelView (TableDescriptor td, 
String column) 

{ 

int index=0; 
55 StringBuffer di splay LabelOpper=null; 

ResultSetMetaData rsmd=null; 

try { 
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index=td . f^RcolumnName (column) ; 
rsmd=td.getMetaData () ; 

displayLabelUpper=new StringBuf fer (rsmd.getColumnNarae (index) ) ; 

} 

5 catch (SQLException sqle) { 

sqle.printStackTraceO ; 

) 

// does it exist? 
10 if (index == 0) { 

return (null) ; 

} 

return (getDisplayLabel (displayLabelUpper . toString ( ) ) ) ; 

15 > 

public static String getDisplayLabelEdit (TableDescriptor td. 
String column, 
String htmlElement, 
20 LinkedList sessionStack, 

String unqStr, 
Integer usersKey, 
Connection con) 
throws SQLException 

25 { 

boolean keyField = false; 

if (td.getKeyFieldO != null && td.getKeyField () . toUpperCase () .equals ( 
column) ) { 
30 keyField = true; 

} 

int columnlndex = -1; 
try { 

35 column I ndex=t d . f indColumnName ( column ) ; 

) 

catch (SQLException sqle) { 
sqle . printStackTrace ( ) ; 

) 

40 

StringBuffer displayLabel- 

// new StringBuffer (getDisplayLabel View (td, column) ) ; 

new StringBuffer (td. get Format tedField( column Index- 1) ); 

45 /* 

if (keyField) { 

int numIndex=displayLabel.toString() .lastlndexOf ( w Number"); 
if (numlndex >= 0) { 
displayLabel=new 

50 StringBuffer (display Label . toString () • substring (0, numlndex) +" 

Key"); 

} 

) 

*/ 

55 

Resul tSetMe taDat a rsmd=td . getMetaData ( ) ; 
// deal with Required fields 
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try { 

if (rsmd.isNullable (column Index) != 
ResultSetMetaData.columnNullable) { 
displayLabel . insert (0, "<b>") ; 
5 displayLabel. append ( n </b> n ) ; 

} 

} 

catch (SQLException sqle) { 
sqle.printStackTrace () ; 

10 ) 

// Deal with constraint fields 
TableDescriptor tdl=null; 

15 BalloonHelp bh=BalloonHelp . getlnstance ( ) ; 

Balloon b=null; 

if ( (tdl=td.getConstraint (column) ) != null) { 

int numIndex=displayLabel.toString() .indexOf (" Number"); 
20 if (numlndex >= 0) { 

displayLabel -delete (numlndex , " Number" . length () +numlndex) ; 

} 

if ((((StackElement)sessionStack.getLastO) . getMaste r Column () == 
25 null) | I 

( ! ( (StackElement) sessionStack.getLast {) ) .getMasterColumn () .equals 
(column) ) ) 

{ 

Statement sfmt-null; 
30 ResultSet sf=null; 

try { 

sfmt - con. createStatement (ResultSet. TYPE_SCROLL_INSENSITIVE f 
Result Set . CONCUR_READ_ONLY ) ; 
35 sf = sfmt.executeQuery ( 

"SELECT " + 

DECODE (MAX (ABS (Can_Edit_Flag) ) , NULL, 0, 
MAX (ABS (Can_Edit_Flag) ) ) AS Can_Edit_Flag, "+ 

40 

" DECODE (MAX (ABS (Can_Add_Flag) ) , NULL, 0, 

MAX (ABS (Can_AddJTlag) ) ) AS Can_Add_Flag "+ 
"FROM w + 

// ■ PEOPLE, STAFF, USERS, 

45 SECURI TY_GROUP_USER, SECURI TY_GROUP_TABLE, SECURI T Y_T ABLE 

" + 

" PEOPLE, USERS, SECURI TY_GROUP_USER, 

SECURI TY_GROUP_TABLE, SECURI TYJTABLE "+ 
50 "WHERE "+ 

" PEOPLE. Active_Flag <> 0 AND "+ 

// n PEOPLE . People_Key = STAFF . People_Key AND "+ 

// " STAFF. Staff JKey = USERS . Staff_Key AND "+ 

" PEOPLE . People_Key » USERS . People_Key AND "+ 
55 " USERS. Users_Key = SECURITY_GROUP_USER. Users_Key AND "+ 

" SECURITY_GROUP_USER.Security_Group_Key ■ 

SECURITY_GROUPJTABLE.Security_Group_Key AND "+ 
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n SECURITY JSRO0P_TABLE.Security_Table_Key = 
SECURITY_TABLE.Security_Table_Key AND n + 

SECURITY JTABLE.SecurityJTable_Name - ,n +tdl. 
5 getTable ()+"' AND "+ 

n SECURITY_<3ROUP_USER.CFsers_Key = "+usersKey 

>; 

sf .next () ; 

10 b = bh.getNavBalloon( n drillLink") ; 

if (sf .getBoolean(l) I I sf .getBoolean (2) ) { 
display Label. insert (0, 
n <A HREF=A nn + 

15 n javascript:holdForPickList(' n + 

tdl . getTable () + n • , w +htmlElement+'\ "+ 
unqStr+")\ n "+ 
((b ! = null)? 

n onMouseOver=\ n setHang( 1 n +b.getID() + 

20 1,1 , event, this, »dataLink»); n + 

"return true;\" onMouseOut=\ n clearHang () ; return 
true;\ w n + 

n onClick=\ n clearHang() ; return true;\ n 

25 

) + 

); 

displayLabel. append ("</A>") ; 

30 } 
} 

catch (SQLException sqle) { 
sqle . prints tackTrace ( ) ; 
throw sqle; 

35 } 

finally { 
try { 

if (sf != null) sf .close (); 

if (sfmt != null) sfmt. close () ; 

40 } 

catch (SQLException sqle) { 
sqle. print StackTrace () ; 

} 

) 

45 ) 
/* 

if ( ( (StackElement)sessionStack.getLast() ) .getMaster Column () == 
null) { 

50 displayLabel. insert (0,"<A HREF»\ nn + 

" javascript :holdForPickList ( ■ "+ 
tdl . getTable ( ) + n 1 , n +htmlElement+ w , "+ 
unqStr+ 
n )\ w >" 

55 ) ; 

displayLabel . append ( n </A>" ) ; 

} 

else if 
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( ! ( (StackEWRent ) ^ ^ ^ _ ^ r 

sessionStack.getLast () ) .getMasterColumn (7*1 equals ^oliunn) ) { 
displayLabel - insert (0, "<A HREF=\""+ 
n javascript tholdForPickList ( 1 "+ 
5 tdl .getTable () + n 1 , n +htmlElement+ n , "+ 

unqStr+ 

); 

displayLabel. append ( n </A> M ) ; 

10 } 
*/ 

} 

b=bh.getTableBalloon (td. getTable () . toUpperCase () +" . "+column. toUpperCase 

0); 

15 if (b !~ null) { 

displayLabel. insert (0, 

"<A HREF°\ n \" onClick=\"processAsterisk() ; return faise;\" w + 
n CLASS=\ M isTip\ n "+ 

"onMouseOver=\ n setHang ( 1 n +b.getID()+ 
20 event, this , 'dataLink') ; return true; \ n "+ 

n onMouseOut=\ n clearHang() ; return true;\" "+ 
"Xsupxfont size=+l>*</fontx/supx/A>" 

); 

> 

25 return (displayLabel . toString ( ) ) ; 

} 

public static String getFormattedLabel (String label) { 

StringBuffer retLabel=new StringBuffer (getDisplayLabel (label) ) ; 
30 // find all occurences of customCaps 

for (int i=0; i<CustomCaps. customCaps. length; i++) { 
int customLoc=0; 
// Check startsWith 
35 if (retLabel . toString ( ) - toUpperCase ( ) . startsWith ( 

(CustomCaps.customCaps[i]+" ") . toUpperCase ()) ) 

{ 

retLabel. replace (0, 
CustomCaps . customCaps [ i ] . length ( ) , 
40 CustomCaps . customCaps [ i ] ) ; 

customLoc+^CustoraCaps . customCaps [i] . length ( ) ; 

} 

// Check within 

while ( (customLoc=*retLabel. toString () .toUpperCase () .indexOf ( 
45 ( w "^CustomCaps. customCaps [i]+ n ") , toUpperCase () , 

customLoc) ) >=» 0) 

{ 

retLabel . replace (customLoc+1, 

customLoc+l+CustomCaps . customCaps [i] .length () , 
50 CustomCaps . customCaps [ i ] ) ; 

customLoc+=CustomCaps . customCaps [i] . length () +2; 

} 

// check for endsWith 

if (retLabel. toString () .toUpperCase () . endsWith { 
55 (" n +CustomCaps. customCaps [i] ) .toUpperCase () ) ) 

{ 

customLoc=retLabel . toString ( ) .toUpperCase () . lastlndexOf ( 
(" "+CustomCaps . customCaps [i] ) . toUpperCase ( ) ) ; 



170 



WO 02/059793 PCT/US01/42867 

retLabe^Kreplace (customLoc+1, 

customLoc-H+CustomCaps .customCaps [i] - length () , 
CustomCaps . customCaps [i] ) ; 

} 

else if (retLabel. toString () . toUpperCase () .equals ( 
CustomCaps . customCaps [i] . toUpperCase () ) ) 

{ 

return (CustomCaps . customCaps [i] ) ; 

} 

> 

return (retLabel . toString ( ) ) ; 

} 

public static String getDisplayLabel (String label, int upper) { 
String str=getDisplayLabel (label) ; 
return ( s tr . toUpperCase ( ) ) ; 

} 

public static String getDisplayLabel (String label) { 
// check for JKEY 

int underScore=label . lastlndexOf ("_KEY" ) ; 
if (underscore >= 0) { 

label^label . substring (0, underscore) +"_NUMBKR"; 

} 

// Strip _FLAG 

underScore=label . lastlndexOf ( "_FLAG" ) ; 
if (underscore >= 0) { 

label=label .substring (0, underscore) ; 

} 

//lowercase it 

StringBuffer displayLabelLower- 

new StringBuffer (label . toLowerCase ( ) ) ; 

//replace all with 1 1 and capitalize first letter 
displayLabelLower. setCharAt (0, label .char At (0) ) ; 
int underScorePos=0; 

while ( (underScorePos=label.indexOf ( w _ n , under ScorePos) ) >= 0) { 
displayLabelLower . set Char At (underScorePos, ' * ) ; 
underScorePos++ ; 

if (underScorePos < label . length ( ) ) { 

displayLabelLower . setChar At (underScorePos, 
label. charAt (underScorePos) ) ; 

} 

} 

return (displayLabelLower . toString ( ) ) ; 

} 

public static String getDisplayFieldKeyEdit (TableDescriptor td. 
String column, 
String doProcess, 
String value, 
LinkedList sessionStack, 
Connection con) 

{ 

String s=null; 

if (doProcess. equals ("search") ) { 
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s= n <input lBRe»\ nB +td.getDatabase () +"Jgn^^^tJW3flL'V 
n " +column . t oUpperCase ( ) + " \ " type=A " t ex t \ " > " ; 

} 

// else if (doProcess. equals ("return") I I doProcess . equals ("edit" ) ) { 
5 else if ( ( ( (StackE lenient) sessionStack.getLast () ) . getFormValues () .size() 

> 0) ! ! 

doProcess. equals { "edit") ) 

{ 

s=value+"\n<input name=\ w "+td. get Database ()+" "+ 

10 td - ge tTable ( ) + " " +column . t oUpperCase ( ) + " \ n type=\ " " + 

"hidden \ " value=\ n n +value+ " \ "> n ; 

} 

else if (doProcess. equals ("add") ) { 
Object seqVal=null; 
15 if (td. get Table () .equals ( n SYNCHED_KEY_TABLE n ) ) { 

if ( ( (StackElement) sessionStack.getLast () ) . getMasterColumn () ! = 
null) { 

seqVal= ( (StackElement) 
20 sessionStack.get (sessionStack.size () -2) ) .getCurrentKey () ; 

} 

) 

else { 

String qStr= n select "+td. ge tTable () +"_SEQ.nextval from DUAL" ; 
25 try { 

//boolean needToClose=f alse; 
//DBConnectionManager connMgr=null; 
if (con — null) { 
/* 

30 DBConnectionManager . getlns tance ( ) ; 

con=connMgr.getConnection (td.getDBConnection () ) ; 

needToClose=true; 

*/ 

} 

35 Statement stmt=con.createStatement () ; 

ResultSet rs=stmt.executeQuery (qStr) ; 
rs . next ( ) ; 

seqVal«rs.getObject (1) ; 
rs. close () ; 
40 stmt .close () ; 

/* 

if (needToClose) { 

connMgr.freeConnection(td.getDBConnection() , con) ; 
} 

45 */ 

} 

catch (SQLException sqle) { 
sqle . printStackTrace { ) ; 

) 

50 ) 

s=seqVal+ n \n<input name=\" w +td. get Database () + n rt + 

td. ge tTable () +" w +column. toUpperCase () + n \ w type=\ wn + 

n hidden\ w value=\ nn +seqVal+ f, \ n > n ; 

> 

55 return (s); 



public static String getDisplayFieldEdit (TableDescriptor td, String column, 
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String doProclK , String value, LinkedListjP^iitfnfe^^ ■ 

{ 

//see if we are on the key field 

if (td.getKeyField() != null && td.getKeyField () .toUpperCase () .equals ( 
5 column . toUpperCase ( ) ) ) { 

return (getDisplayFieldKeyEdit (td, column, doProcess, value, sessionStack 
, con) ) ; 

} 

10 else { 

return (getDisplayFieldNKeyEdit (td, column, doProcess, value, 
sessionStack, con) ) ; 

) 

} 

15 

public static String getDisplayFieldNKeyEdit (TableDescriptor td, 
String column, 
String doProcess, 
String value, 
20 LinkedList sessionStack, 

Connection con) 

{ 

int index=0; 
try { 

25 index=td. f indColumnName (column) ; 

) 

catch (SQLException sqle) { 
sqle. prints tackTraceO ; 

) 

30 

Result SetMetaData rsmd=null; 

// first, determine if the field is in the displayFields Vector 
if ( !td- isDisplayField( column) ) { 
35 return (column+ n not found"); 

) 

// Let's see if it has a constraint 
TableDescriptor tdl=td.getConstraint (column) ; 

40 

if (tdl !» null) { 
//build picklist 

return (buildPickList (column, td, tdl, doProcess, value, sessionStack, con) 
45 ); 

} 

else { 

//build normal field 

return (buildNormal (td, index, doProcess, value, sessionStack) ) ; 

50 ) 
} 

private static String buildNormal (TableDescriptor td, int index, 
String doProcess, String value, 
55 LinkedList sessionStack) 

< 

StringBuffer sb=new StringBuf f er () ; 
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try { 

ResultSetMetaData rsmd = td.getMetaData () ; 

String fieldName = rsmd. get ColumnName (index) ; 
int precision = rsmd. getPrecision (index) ; 
int scale = rsmd. getScale (index) ; 

int displaySize = rsmd. getColumnDisplaySize (index) ; 
String type = rsmd. get Col umnTypeName (index) ; 

Balloon b = bh.getTableBalloon (td.getTable () . toUpperCase () +" . "+ 
fieldName . toUpperCase ( ) ) ; 

sb. append ("<input name=\ ww +td. get Database ()+" "+ 

td.getTable()+ n "+f ieldName+ n \" "); 

if (b!=null) { 

sb. append ( n onMouseOver=\"setHang ( 1 "+b.getID () + 
w 1 , event, this, 'dataTable 1 ) ; return true; \" "+ 
"onMouseOut=\"ciearHang{) ; return true;\" "+ 
"onClick=\"clearHang() ; return true;\ w "); 



sb . append ( " type=\ n n ) ; 

if (fieldName.endsWith("_FLAG n )) { 
sb. append ( n checkbox \" value=\"") ; 

if (! doProcess .equals ("search") && 
value != null && 
! value. equals {"") && 

Integer .parselnt (value. trim () ) != 0) 

{ 

sb. append ("1\" CHECKED>") ; 

} 

else if (doProcess. equals ("search") ) { 
sb. append ("NOT LIKE\" "+ 
(value !== null && 

value . equals ( "NOT LIKE" ) ? "CHECKED" : "" ) + 
">Yes <input name=\""+ 

td. get Database ()+" "+ 

td.getTable ( ) +" "+f ieldName* 

"\" type-\"checkbox\" value=\"LIKE\" "+ 

(value != null && value. equals ("LIKE") ? "CHECKED" :"") + 

">No " 

); 

) 

else { 

sb. append ("1\">") ; 

} 

) 

else if (type, equals ("NUMBER") ) { 
if (precision == 0) { 
precision = 10; 

) 

sb. append ("text \" maxlength=\""+precision+ 
"\" size=\""+precision+"\" ") ; 
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sb.a|Pnd("value=\ n,, +value4- w \»> , f 

); 

} 

else if (type.equals( n VARCHAR2 n )) { 
5 if (displaySize < 100) { 

sb.append("text\" maxlength=\ nn +displaySize+ n \" "+ 
"size=\ nn +( (displaySize>60) ?60 : displaySize) +»»\" " 

); 

sb. append ("value=\""+processDoubleQuote (value) + f, \">") ; 

10 } 

else { 

sb=new StringBuf fer ("<textarea name=\" n + 

td . getDatabase ( ) +" "+ 

td.getTable () +" n +fieldName+ 

15 "\ n COLS=A"60\" ROWS=\"5\" WRAP=\ n SOFT\" 

onBlur=\"validateTextarea(this, 9 "+ 

td.get Forma ttedField( index- 1) +" ■ , "+displaySize+" ) \" n 

); 

20 if (b!=null) { 

sb . append ("onMouseOver=\"setHang ( 1 "+b . getID () + 
n 1 , event, this, 1 dataTable 1 ) ; return true; \ n " 

>; 

sb.append("onMouseOut=\"clearHang() ; return true;\" "); 
25 sb.append( n onClick=\"clearHang() ; return true;\ n 

} 

sb. append (">") ; 

sb. append (processDoubleQuote (value) ) ; 
30 sb . append ( "</textarea>\n" ) ; 

> 

) 

else if (type. equals ("DATE") ) { 

sb. append (" text \" maxlength=\"10\ M size=\"10\" "); 
35 sb. append ("value=A""+value+ n \' ? "); 

// if { IdoProcess. equals ("search") ) { 
sb. append ( n onBlur=\"checkDate (this) \" n ) ; 
// } 

sb. append (">") ; 

40 ) 



sb . append ( " \n" ) ; 

> 

catch (SQLException sqle) { 
45 sqle .printStackTrace ( ) ; 

} 

return (sb . toString ( ) ) ; 



50 

private static String buildPickList (String fieldName, 
TableDescriptor td, 
TableDescriptor tdl, 
String doProcess, 
55 String value, 

LinkedList sessionStack, 
Connection con) 



175 



WO 02/059793 



PCT7US01/42867 



//first, geneWte sql 

BalloonHelp bh=BalloonHelp.getInstance () ; 

Balloon b=bh . getTableBalloon ( td . getTable ( ) . toUpperCase ( ) +" . "+f ieldName . 
toUpperCase () ) ; 
StringBuffer sb= 

new StringBuffer ("<select name=\""+ 

td. getDatabase () +" n + 

td.getTable()+ n "+ f ieldName+"\" ■ 

); 

if (b!=null) { 

sb . append ( "onMouseOver=\ " setHang ( ' "+b . get ID ( ) + 

, event, this, 'dataTable' ) ; return true;\" "+ 
"onMouseOut=\"clearHang () ; return true;\ n "+ 
"onClick=\ "clearHang ( ) ; \ " " 

); 

} 

sb. append (">") ; 

if ( ( (StackElement)sessionStack.getLast() ) . getMasterColumn ( ) == null) { 
sb. append ("<option>\n") ; 

} 

else if (! ( (StackElement) sessionStack.getLast () ) . getMasterColumn- () . 
equals (f ieldName) ) { 

sb. append (" <opt ion>\n" ) ; 

} 

boolean foundName=false; 
boolean foundNamePart=f alse; 
boolean specialView= 

(td . getTable ( ) . equals ( "CUST0M_VIEW_PROTOTYPE_2 " ) | | 
td. getTable () .equals ( n CUST0M_VIEW_PR0T0TYPE_3 n ) | | 
td. getTable () .equals ( n CUST0M_VIEW_PROT0TYPE_l") 
) ?true: false; 

DataDictionary dd = 

DataDictionary . getlnstance (td . getDatabase ( ) , 
td. getDBConnection () ) ; 

String tdlSaveTableName = tdl . getTable () ; 

String fullQuery » (td. get ForeignCDD (f ieldName) != null) ?td. 
get ForeignCDD(f ieldName) . getSQLStr ( ) :null; 
StringBuffer selectPart = new StringBuf f er () ; 
StringBuffer fromPart = new StringBuf fer () ; 
StringBuffer wherePart - new StringBuf fer () ; 
StringBuffer orderByPart = new StringBuf fer () ; 

if (Debug. are Debugging) { 

Debug. doLog("f ieldName: M +f ieldName, Debug. INFO) ; 
Debug. doLog ("fullQuery: n +fullQuery, Debug. INFO) ; 

) 

try { 

if (fullQuery != null) { 

int begPart » fullQuery. indexOf ("SELECT") +"SELECT n . length () ; 
int endPart = fullQuery. indexOf ("FROM") ; 
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selectPSPt . append ( f ullQuery . subs trip^©igpa|j^|3eitt')^ 

toUpperCase ( ) . trim ( ) ) ; 

begPart = endPart+ "FROM" .length () ; 

endPart - f ullQuery. indexOf ("WHERE") ; 

if (endPart > begPart) { 

fromPart .append (f ullQuery. substring (begPart , endPart) . 

toUpperCase ( ) . trim ( ) ) ; 

begPart = endPar t+" WHERE" .length () ; 

endPart « f ullQuery . indexOf ("ORDER BY") ; 

if (endPart > begPart) { 

wherePart .append (f ullQuery. substring (begPart, endPart) . 

toUpperCase ( ) . trim ( ) ) ; 

begPart = endPart+" ORDER BY" . length () ; 

orderByPart. append (f ullQuery .substring (begPart) .toUpperCase 
() .trimO); 

) 

else { 

wherePart . append (f ullQuery . substring (begPart) . toUpperCase ( ) 
.trim() ) ; 

> 

) 

else { 

endPart = fullQuery .indexOf ("ORDER BY"); 
if (endPart > begPart) { 

f romPart . append ( fullQuery . subs t ring (begPart , endPart ) . 

toUpperCase ( ) . trim ( ) ) ; 

begPart = endPart + "ORDER BY" . length () ; 

orderByPart . append (fullQuery . substring (begPart) . toUpperCase 
() .trim()); 

} 

else { 

fromPart. append (fullQuery. substring (begPart) . toUpperCase () . 
trimO); 

> 

} 

if ( Debug. areDebugging) { 

Debug. doLog ("selectPart: "+wherePart, Debug. INFO) ; 
Debug . doLog ( " fromPart : "+f romPart , Debug . INFO) ; 
Debug . doLog ( "wherePart : "+wherePart , Debug . INFO) ; 
Debug . doLog ( "orderByPart : "+wherePart , Debug . INFO) ; 

} 

) 

else { 

selectPart.append(tdl.getTable()+"."+tdl.getKeyField() ) ; 
fromPart . append (tdl - get Table ( ) ) ; 
if (specialView) { 

orderByPart . append (tdl . getKey Field ( ) ) ; 



while (! specialView && ! f oundName) { 

ResultSetMetaData rsmdl=tdl . getMetaData ( ) ; 
for (int i=l;i<=rsmdl.getColumnCount () ;i++) { 

if (rsmdl.getColumnName(i) . endsWith ("_NAME") ) { 
f oundName=true ; 
break; 

} 

} 
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if (ifoundName) { 

String qStr= n select a, table_name,b. column_name from "+ 
n user_constraints a, user_cons_columns b, "+ 
"user_constraints c, user_consjcolumns d "+ 
"where "+ 

"a.constraint^type^'P* and c . const rain t_type= 1 tJ • w + 
"and c. table_name= ,H +tdl. getTable ()+"» and n + 
" c. cons traint_name=d. cons traint_name and "+ 
"b.coluinn_name=d.column_name and "+ 
"b . constraint_name=a . cons train t_name " ; 

boolean needToClose=false; 
if (con — null) { 
/* 

DBConnectionManager . getlnstance { ) ; 

con=connMgr . getConnection ( tdl . getDBConnection ( ) ) ; 

needToClose=true ; 

*/ 

} 

Statement s trat=con - createSta tement ( ) ; 
ResultSet rs=stmt . executeQuery (qStr) ; 
if (!rs.next()) { 
break; 

} 

if (rs.getString(l) . startsWith { n MICAH n ) ) { 
rs .next () ; 

} 

String tableName=rs .getString(l) ; 
String keyFieldName=rs . get St ring (2) ; 

td=dd.getDataDictionaryTD (tdl. getTable () ) ; 
tdl^dd.getDataDictionaryTD (tableName) ; 

wherePart .append (td.getTable () +" . ^+keyFieldName+ n = n + 
tableName+" . n +tdl .getKeyField () +" and n ) ; 
f romPart . append ( w , w +tdl . getTable ( ) ) ; 

rs. close () ; 

stmt. close () ; 

if (needToClose) { 

//connMgr.freeConnection (tdl .getDBConnection () , con) 

) 

> 

} 

// now I am at a TD that has JNAME field (s) 
foundNamePart=false; 

if ( ! specialView && tdl . f indColumnName ("LAST_NAME W ) != 0) { 
selectPart . append ( " , "+tdl . getTable ( ) + " . LAST_NAME" ) ; 
orderByPart . append (tdl . getTable ( ) +" . IAST_NAME, " ) ; 
if (tdl. f indColumnName ("FIRSTJJAME" ) != 0) { 

selectPart . append ( " , M +tdl . getTable ( ) + n . FIRSTNAME" ) ; 

orderByPart . append (tdl . getTable ( ) + n . FIRST_NAME , " ) ; 

} 

if (tdl . f indColumnName ( "MIDDLE__NAME" ) ! = 0) { 

selectPart . append ( n , "+tdl . getTable ( ) +" . MI DDLE_NAME n ) ; 
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olR.rByPart . append ( tdl . getTab^U 

} 

f oundName Par t= true ; 

} 

5 if ( ! specialView && ! foundNamePart) { 

ResultSetMetaData rsmd=tdl .getMetaData () ; 
for (int i=l;i<=rsmd.getColumnCount () ;i++) { 

if (rsmd.getColumnName(i) .endsWith ("_NAME n ) ) { 
selectPart. append (", w +rsmd.getColumnName (i) ) ; 
10 or derByPar t . append ( r smd . ge t ColuranName ( i ) ) ; 

break; 

} 

} 

) 

15 else if (f oundName) { 

orderByPart . deleteCharAt (orderByPart . length ( ) -1) ; 

} 

} 

20 StringBuffer qStrBuf=new StringBuffer ("SELECT n +selectPart+ n FROM "+ 

f romPart) ; 

if (( (StackElement) sessionStack. getLast () ) . getMaster Column () ! = 
null) { 

25 if ( ( (StackElement) sessionStack. getLast () ) - getMaster Co lumn {) . 

equals (fieldName) ) { 

if ( { (StackElement) sessionStack. get (sessionStack. size () -2) ) . 
getTableName ( ) . equals ( "CUSTOM_VIEW_PROTOTYPE_l " ) I I 

( (StackElement) sessionStack. get (sessionStack. size () -2) ) . 
30 getTableName ( ) . equals ( w CUST0M_VIEW_PR0TOTYPE_2 " ) | | 

( (StackElement) sessionStack. get (sessionStack. size () -2) ) . 
getTableName () .equals ("COS TOM_VIEW_PROTOT YPE_3 n ) ) 

{ 

if (fullQuery == null) { 
35 wherePart . append ( tdlSaveTableName+" . n +f ieldName+ n « ,, + ( ( 

StackElement) sessionStack. get (sessionStack. size ()-2)) . 
getCurrentKey()+ n AND "); 

> 

else { 

40 wherePart. append ( n AND A. w +f ieldName+ rt = ,, + ( (StackElement) 

sessionStack. get (sessionStack. size () -2) ) . getCurrentKey 
0); 

} 

} 

45 else { 

if (fullQuery =» null) { 

wherePart - append ( ( ( StackElement ) sessionStack . get ( 
sessionStack. size () -2) ) .getTableName () + n - w + 

fieldName+ w = n +( (StackElement) sessionStack. get ( 
50 sessionStack. size () -2) ) .getCurrentKey ()+" AND w 

); 

} 

else { 

wherePart. append (" AND A n + n . w +f ieldName+"= n + ( ( 
55 StackElement) sessionStack. get (sessionStack. size () -2) ) . 

getCurrentKey () ) ; 

} 

} 
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if (wherePart. length () 1= 0) { 
if (fullQuery == null) { 

wherePart -delete (wherePart . length () -5, wherePart. length () -1) ; 

} 

qStrBuf .append ( n WHERE n +wherePart) ; 



if (fullQuery == null) { 

String sortOrderName = null; 
ResultSetMetaData rsmd = tdl .getMetaData () ; 
for (int i<=rsmd.getColuranCount () ; i++) { 

String curColName = rsmd.getColumnName (i) ; 
if ( curColName. endsWith( n SORT_ORDER M ) || 
curColName . endsWith ( n SORT_KEY n ) ) 

{ 

sortOrderName - curColName; 
break; 

) 

} 

if (sortOrderName != null) { 

if (orderByPart. length () ==0) { 

orderByPart .append (tdlSaveTableName+ ,f . n +sortOrderName) ; 

) 

else { 

orderByPart .insert (0, tdlSaveTableName+" . n +sortOrderName+", " 
30 ); 

} 

} 

} 

35 if (orderByPart. length () 1= 0) { 

qStrBuf. append (" ORDER BY w +orderByPart) ; 

) 

if { Debug. areDebugging) { 
40 Debug. doLog ("TableDescriptorDisplay qStrBuf: 

n +qStrBuf , Debug . INFO) ; 

} 

boolean needToClose^false; 
//DBConnectionManager connMgr=null; 
45 if (con => null) { 

/* 

DBConnectionManager . getlnstance ( ) ; 
con=connMgr .getConnection (tdl .getDBConnection () ) ; 
needToClose=true ; 
50 */ 
} 

Statement s tmt=con . createStatement ( ) ; 
ResultSet rs=stmt . executeQuery (qStrBuf . toString ( ) ) ; 
ResultSetMetaData r smd=r s . getMetaData ( ) ; 
55 while (rs.nextO) { 

String optVal=rs .gets t ring (1) ; 

String curTableName «= td.getTable () ; 

sb. append ("<option value=\ MW ); 
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if (cuSKbleName . equals ( "CUSTOM_Vip^R^paj^^^ ]L l t J 
curTableName . equals ( "CDSTOM_VIEFMotdT^EfSM H 1 
curTableName . equals ( "CUSTOM_VIEW_PROTOTYPE_3 n ) ) 

{ 

5 sb. append (rs.getString(l) ) ; 

> 

else { 

sb - append { op tVal) ; 

} 

10 sb. append ("\" "+ 

(opt Val. equals (value) ? n SELECTED" : nw ) + 
it 

); 

if (foundNamePart && rsmd . getColumnCount ( ) ==4) { 
15 String lastName = rs.getString (2) ; 

String firstName = rs .getString (3) ; 
String middleName = rs . getString (4) ; 

String apStr= (lastName = null?"" : lastName* ") + 
20 (firstName == null?"" : f irstName+ n n )+ 

(middleName — null?"" : middleName) ; 

sb . append (apStr) ; 

} 

25 else if ( ( ! f oundName > && (fullQuery = null)) { 

sb . append ( rs . getString ( 1 ) ) ; 

} 

else { 

for (int i=2;i<=rsmd. getColumnCount () ; i++) { 
30 if (rs.getString (i) != null) { 

sb. append (rs .getString (i) + M "); 

} 

) 

sb . deleteCharAt ( sb. length () -1) ; 

35 } 

sb. append ("\n") ; 

} 

rs. close () ; 
stmt .close () ; 
40 if (needToClose) { 

//connMgr . f reeConnection (tdl . getDBConnection () , con) ; 

) 

) 

catch (SQLException sqle) { 
45 sqle .print St ackTr ace ( ) ; 

} 

sb. append ("</select>\n") ; 

50 return ( sb . toString ( ) ) ; 

} 

public static String getOrderBy (TableDescriptor td) { 
StringBuffer orderByBuf f=new StringBuf f er ( ) ; 
55 boolean f oundNamePart=false; 

try { 

if (td.findColumnName( w LAST_NAME ,f ) !=* 0) { 
orderByBuf f . append ( n LAST_NAME, n ) ; ■ 
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f oundNaHEfcar t=t rue ; 

} 

if (td.findColumnName( n FIRST_NAME n ) != 0) { 
orderByBuf f . append ("FIRS T_NAME, ") ; 
foundNamePart=true; 

} 

if (td.findColumnName( n MIDDLE_NAME n ) != 0) { 
orderByBuf f. append ("MIDDLEJJAME, ") ; 
f oundNamePart=true ; 

} 

if ( ! f oundNamePart) { 

ResultSetMetaData rsmd = td.getMetaData () ; 
String nameColumn; 

for (int i=l;i<=rsmd.getColumnCount () ;i++) { 

if ( (nameColumn=rsmd.getColumnName (i) ) . endsWith ("_NAME") ) { 
orderByBuf f . append (nameColumn) ; 
f oundNamePart=t rue ; 
break; 

} 

} 

} 

else { 

orderByBuf f . deleteCharAt (orderByBuf f . length ( ) -1 ) ; 

} 

} 

catch (SQLException sqle) { 
sqle.printStackTrace () ; 

} 

if (f oundNamePart) { 

return (orderByBuf f. toString () ) ; 

} 

else { 

return ("") ; 

} 

} 



public static String displayStack (LinkedList 1, String unqStr) ( 

StringBuffer stackListBuf f=new StringBuf fer ("<TABLE width=\"100%\ w "+ 

n cellpadding=\ n 0\ n "+ 

w cellspacing=\ n O\">\n n ) ; 
stackListBuff. append ("<TR><TD align=\"lef t\" valign=\"bottom\ w >\n ,? ) ; 
String targetName^nul lu- 
string doProcess=null; 
int i=0; 

BalloonHelp bh = BalloonHelp.getlnstance () ; 
Balloon b = bh.gettfavBalloon ("stackLink") ; 
String bString » 
((b!=null)? 

n onMouseOver=\"setHang ( 1 w +b. getID() + 

■ f , event, this , 'navLink' ) ; return true;\" "+ 

rt onMouseOut=\' t clearHang () ; return true; \ n "+ 

n onClick»\ ,, clearHang() ; return true;\ n * 

it n 

); 

while (1 » = null && i < l.sizeO) ( 

StackElement se=(StackElement) 1 .get (i) ; 
targetName="AddEditForm. j sp" ; 
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if (se.^RiMode () . equals ("browse") ) 
targetName="Browse . j sp" ; 
doProcess="browse" ; 

} 

5 else if (se.getMode () .equals ("add") ) { 

doProcess=" insert" ; 

} 

else if (se.getMode () .equals ("edit")) { 

doProcess= n update&keyValue="+se.getCurrentKey () ; 

10 } 

else if (se.getMode () .equals ("search") ) { 

if (se.getTableNameO .equals ("CUSTOM_VIEW_PROTOTYPE_3")) { 
doProcess=" revised" ; 

) 

15 else { 

doProcess=" filter" ; 

} 

) 

20 stackListBuf f . append ( "<A HREF=\ " "+targetName+" ?tableName="+ 

se . getTableName ( ) +" &raode="+se . getMode ( ) + 

"&doProcess="+doProcess+"&stackLevel="+i+ 

"&unq="+unqStr+"\" "+ 

bString+ 
25 ">" 
); 

stackListBuff. append (TableDescriptorDisplay.getDisplayLabel ( 
se . getTableName ( ) ) . toUpperCase ( ) + 
" ["+se.getMode() . toUpperCase () +")</A> — >\n" 

30 ); 

i++; 

} 

if (1 != null) { 

stackListBuff = new StringBuffer (stackListBuff . substring (0, 
35 stackListBuff .length ()-7) ) ; 

} 

stackListBuff .append ("</TDXTD valign=\"bottom\" align=<\"right\ w >") ; 
StackListBuf f .append ( "</TDX/TR></TABLE> n ) ; 
return ( stackListBuff . toStr ing ( ) ) ; 

40 } 

public static String displayNavbar (String origTableName, String unqStr, 
boolean canBrowseFlag, boolean canAddFlag, boolean isFiltered) { 

45 BalloonHelp bh = BalloonHelp.getlnstance () ; 

Balloon b = null; 

StringBuffer navbarBuf f=new StringBuffer () ; 

navbarBuf f . append ( "<b>" +TableDescriptorDisplay . getFormattedLabel ( 
50 origTableName) +"</b> options: \n w ); 

if (canBrowseFlag) { 

b=bh . getNavBalloon ( "navFullBrowseLink" ) ; 
navbarBuf f. append ("<font size=A"2\ ,, Xstrong>"+ 
"<A HREF=\ "Browse. jsp?tableName»"+ 
55 origTableName+ n &mode=browse&doProcess=fullList&"+ 
"unq="+unqStr+ 
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((b ! = 

n onMouseOver=\"setHang ( ' n +b.getID() + 
"■ , event, this, 'navLink'); return true; \" 
n onMouseOut=\"clearHang() ; return true;\ n "+ 
5 n onClick=\"clearHang() ; return true;\" " : 

n 1 1 

) + 

">FULL BROWSE</AX/strongX/font>" 

10 ); 

if ( ( ! isFiltered) && ( ( ! canAddFlag) | | origTableName . equals ( 
"CUSTOM_VIEW_PROTOTYPE_JL") | | 

origTableName. equals ( n CUSTOM_VIEW__PROTOTYPE_2 n ) | | origTableName. 
15 equals ( n COSTOM_VIEW_PROTOTYPE_3 n ) ) ) 

{ 

navbarBuf f . append ( " or"); 

} 

else { 

20 navbarBuf f . append (","); 

} 

if (isFiltered) { 

b=bh.getNavBalloon ("navFilteredBrowseLink") ; 
25 navbarBuf f. append (" <font size=\"2\ n Xstrong>"+ 

"<A HREF=\ w Browseosp?tableName="+ 
or igTableName+ " &mode=browse SdoProces s=f ilter & "+ 

"unq=* n +unqStr+ 
it ^ ii n + 

30 

((b != null)? 

f, onMouseOver-\"setHang( » "+b.getID () + 
n • , event, this , 'navLink* ) ; return true;\ n "+ 
"onMouseOut^VclearHang () ; return true;\" w + 
35 n onClick=\ f, clearHang() ; return true;\" n : 

n it 

) + 

">FILTERED BROWSE</AX/strongX/font>, " 

40 ); 

) 

b=bh . getNavBalloon ( "navNewSearchLink" ) ; 
navbarBuff. append (" <font size=\ w 2\"><strong> n + 
45 "<A HREF«\"AddEditForm. jsp?tableName=« n + 

origTableName+"&mode=search&doProcess=new& n + 
n unq="+unqStr+ 

n \ n w + 

50 (<b ! = null)? 

n onMouseOver=\"setHang ( ■ "+b.getID () + 
n ' , event, this, 'navLink' ) ; return true;\" "+ 
"onMouseOut=\ n clearHang () ; return true;\" "+ 
n onClick=\ n clearHang() ; return true; \ n ": 

55 

) + 

n >NEW SEARCH</a></strongx/font>" 
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); 

if (isFiltered) { 

b=bh . getNavBalloon ( "navRevisedSearchLink" ) ; 
navbarBuf f . append (","); 

if ( ( ! canAddFlag) | I origTableName . equals ( 
w CUST0M_VIEW_PROTOTYPE_l" ) " | | origTableName . equals ( 
n CUST0M_VIEW_PROTOTYPE_2") || origTableName .equals ( 
n COSTOM_VIEW_PROTOTYPE_3 n ) ) { 
navbarBuf f . append ( " or n ) ; 

} 

navbarBuff. append (■ <font size=\ w 2\"><strong> n + 
"<A HREF=\ n AddEditForm. jsp?tableNarae= n 4- 
origTableName+ n &mode=search&doProcess=revised& ,, + 
"unq= n +unqStr+ 

n ^ n n ^. 

((b != null)? 

n onMouseOver=\" set Hang ( ■ n +b.getID () + 
n 1 , event, this, •navLink' ) ; return true;\ n w + 
n onMouseOut=A n clearHang () ; return true;\ w n + 
n onClick=\ n clearHang() ; return true;\ n n : 

n ii 

) + 

n >REVISED SEARCH</a></strongX/font>" 

); 

} 

} 

if (! ( ( IcanAddFlag) || or igTableName. equal s ( ,f CUSTOM_VIEW_PROTOTYPE_l n ) 
II origTableName. equals ( w CUSTOM_VIEW_PR0TOTYPE_2 w ) || origTableName. 
equals (" CUSTOM JttEW J?ROTOTYPE_3 n ) ) ) { 

b=bh . getNavBalloon ( "navAddLink" ) ; 

if (canBrowseFlag) { 

navbarBuff . append ( w , or"); 

) 

navbarBuff .append ( w <font size=\ w 2\ w ><strong> n + 
"<A HREF=\" AddEditForm . j sp?tableName="+ 
origTableName+ ,, &mode= s add&doProcess=insert& ,, + 
"unq= w +unqStr+ 

((b != null)? 

n onMouseOver=\"setHang ( ■ "+b.getID () + 
" ' ,event, this, 'navLink' ) ; return true;\" "+ 
w onMouseOut=\ w clearHang() ; return true;\ n n + 
"onClick=A w clearHang() ; return true,-\ n ": 

m n 

) + 

">ADD</a></strong></font>\n n 

); 

} 

return navbarBuff . toString ( ) ; 

} 

public static String getNoCache (int forType) { 
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long curDate=^Kw j ava . util . Date ( ) . getTim^jjr 

if (forType — TableDescriptorDisplay. ForForm) { 
return ("<input type=\ n hidden\ n name=\ n unq\" 
5 value=\ wn +curDate+ n \"> n ) ; 

} 

else if (forType — TableDescriptorDisplay . ForCTavaScript) { 
return ( nn +curDate) ; 

} 

10 else { II (forType = TableDescriptorDisplay. ForURL) 

return ( w unq= w +curDate) ; 

} 

} 

15 public static String process DoubleQuote (String str) { 

StringBuffer retStrBuf = new StringBuf fer {) ; 
int prevQuote=0; 
int curQuote=0; 

while ( (curQuote=*str .indexOf ( 1 " 1 , prevQuote) ) >= 0) { 
20 retStrBuf . append (str . substring (prevQuote, curQuote) ) ; 

retStrBuf .append ("" w ) ; 
prevQuote = curQuote+1; 

} 

retStrBuf .append (str. substring (prevQuote) ) ; 
25 return ( retStrBuf . toS tring ( ) ) ; 

} 

} 

Schemalive/WEB-INF/classes/sessionUtils/ManageSession . java 

30 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package sessionUtils; 

35 

import javax. servlet. *; 
import j avax . servlet . http . * ; 

import j ava. util.*; 
40 import java.io.*; 

public class ManageSession { 

public static final String version_sessionUtils_ManageSession_java = 
45 "$Revision: 2.3 $"; 

public static int getCurSequence (HttpSession session) { 
Integer curSequence = 

(Integer) session. getAttribute ("sessionSequence") ; 
50 if (curSequence !« null) { 

return ( curSequence. intValue () ) ; 

} 

else { 

ManageSession. updateSequence (session) ; 
55 return (1); 

} 

} 
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public static iiaarupaatesequence (HttpSessiorpfe^^FpALPjl 

Integer curSequence = (Integer) session. getAttribute ("sessionSequence") ; 
int next Sequence; 
if (curSequence == null) { 
5 nextSequence=»l; 
} 

else { 

nextSequence - curSequence. int Value () +1; 

} 

10 

session. setAttribute ("sessionSequence", new Integer (next Sequence) ) ; 
return (ManageSession.getCurSequence (session) ) ; 

} 

15 public static boolean checkSequence (HttpSession session, int sequence) { 

if (sequence != ManageSession.getCurSequence (session) ) { 
return (false) ; 

> 

else { 

20 return (true) ; 

} 

) 

} 

25 Schemalive/WEB-INF/classes/sessionUtils/StackElement . java 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

30 package sessionUtils; 

import java.util.*; 
import java.io.*; 

35 public class StackElement implements Serializable { 

public static final String version_sessionUtils_StackElement Java = 
"$Revision: 2.3 

40 private Hashtable formValues=new HashtableO; 

private Hashtable searchParams=new HashtableO; 

private String mode=null; 

private String tableName=null; 

private String searchString=null; 
45 private String currentKey=null; 

private String focusField=null; 

private String masterColuran-null; 

private int rowPointer=0; 

50 public StackElement () { 



private synchronized void writeObject (java.io. Ob jectOutput Stream out) 
55 throws IOException { 

out . def aultWriteOb j ect ( ) ; 
out . writ eOb j ect ( f ormValues ) ; 
out. wr i teObj ect (sear chParams) ; 
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out . writeOb j e^F(mode) ; 

out . wr it eOb j ect ( tableName ) ; 
out. writeObject (searchString) ; 
out. writeObject (currentKey) ; 
5 out . writeOb j ect ( f ocusField) ; 

out .writeObject (master Column) ; 

} 

private synchronized void re adObj ect (java. io. Object Input Stream in) 
throws IOException, ClassNotFoundException { 
10 in.defaultReadObject {) ; , 

formValues= (Hashtable) in. readObject () ; 
searchParams= (Hashtable) in. readObject () ; 
mode= (String) in. readObject () ; 
15 tableName= (String) in.readObj ect () ; 

searchString= (String) in. readObject () ; 
currentKey= (String) in . readObj ect ( ) ; 
f ocusField* ( String) in . readObj ect ( ) ; 
masterColumn= (String) in. readObject () ; 

20 } 

// get accessor methods 
public String getCurrentKey ( ) { 
return (currentKey) ; 

25 } 

public String getSearchString () { 
return (searchString) ; 

} 

30 

public String getTableName ( ) { 
return (tableName) ; 

} 

35 public String getMode() { 

return (mode) ; 

) 

public String getFocusField() { 
40 return (f ocusField) ; 

} 

public Hashtable getSearchParams ( ) { 
return (searchParams) ; 

45 } 

public Hashtable getFormValues () { 
return (formValues) ; 

} 

50 

public String getMasterColumn ( ) { 
return (master Column) ; 

} 

55 public int getRowPointer () { 

return (rowPointer) ; 

> 
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//set accessor iMPhods 

public void setCurrentKey (String myCurrentKey) { 
currentKey=myCurrentKey; 

} 

5 

public void setSearchString (String mySearchString) { 
searchString=mySearchString; 

} 

10 

public void setTableName (String myTableName) { 
tableName=myTableName ; 

} 

15 public void setMode (String myMode) { 

mode=myMode ; 

} 

public void setFocusField( String myFocusField) { 
20 focus Field=myFocusField; 

} 

public void setSearchParams (Hashtable my SearchParams) { 
searchParams=mySearchParams ; 

25 } 

public void. setFormValues (Hashtable myFormValues) { 
formValues=myFormValues; 

} 

30 

public void setMasterColumn (String myMaster Column) { 
ma s te r C olumn=myMa s t e rCo lumn ; 

} 

35 public void setRowPointer (int myRowPointer) { 

rowPointer=myRowPointer; 

} 

//Specific settings for the hashtables 
40 public boolean searchParamsContains (Obj ect o) { 

return (searchParams . contains (o) ) ; 

} 

public boolean formValuesContains (Object o) { 
45 return (f ormValues . contains (o) ) ; 

} 

public Enumeration searchParamsElements ( ) { 
return (searchParams. elements () ) ; 

50 } 

public Enumeration formValuesElements () { 
return (f ormValues .elements () ) ; 

} 

55 

public Object searchParamsGet (Object key) { 
return (searchParams . get (key) ) ; 

} 
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public Object formValuesGet (Object key) { 
return (f ormValues . get (key) ) ; 

> 

5 

public Enumeration searchParamsKeys ( ) { 
return (searchParams . keys ( ) ) ; 

} 

10 public Enumeration f ormValuesKeys ( ) { 

return (f ormValues. keys () ) ; 

} 

public Object searchParams Put (Object key, Object value) { 
15 return (searchParams .put (key, value) ) ; 

} 

public Object formValuesPut (Object key , Object value) { 
r e turn (f ormValues. put (key, value) ) ; 

20 } 

public void copyFormTo Search () { 

// Hashtable formValues=se.getFormValues () ; 
// Hashtable searchParams-new Hashtable (); 
25 this . searchParams=new Hashtable ( ) ; 

deepClone (this . searchParams, this . f ormValues) ; 
/ / setSearchParams ( searchParams ) ; 

) 

30 public void copySearchToForm ( ) { 

// Hashtable formValues=new Hashtable (); 

this.formValues=new Hashtable (); 

// Hashtable searchPararas-se . getSearchParams () ; 

deepClone (this . f ormValues , this . searchParams ) ; 
35 // setFormValues (f ormValues) ; 

> 

public void deepClone (Hashtable dst, Hashtable src) { 
// Hashtable dst=new Hashtable (); 
40 Enumeration srcKeys=src. keys () ; 

while (srcKeys .hasMoreElements ( ) ) { 

Ob j ect srcKey=srcKeys . nextElement ( ) ; 
Object srcVal=src.get (srcKey) ; 
dst .put (srcKey, srcVal) ; 

45 } 

// return (dst); 

} 

> 

50 Schemalive/WEB-INF/ classes /sessionUtila/StackTag . java 

// $Revision: 2.5 $ 

// $Date: 2001/10/30 08:26:33 $ 

55 package sessionUtils; 

import j avax . servlet . * ; 
import javax. servlet .http. *; 
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import javax. servle^Fjsp. *; 
import j avax . servlet . j sp . tagext . * ; 

import java.util.*; 
5 import j ava . io . * ; 

import dbUtils - * ; 

// import dbPoolUtils.*; 

10 import common.*; 

public class StackTag extends BodyTagSupport { 

public static final String vers ion_sessionUtils_StackTag_j ava = 
15 "$Revision: 2.5 $"; 

private String mode-null; 
private String tableName=null; 
private String stackLevel=null; 
20 private String database=null; 

private String dbConn^null; 

public int doStartTagO { 

pageContext . setAttribute ( n stackError n , " n ) ; 
25 pageContext. setAttribute ("stacklnfo", "") ; 

// Check mode to determine what to do 
/* 

if (mode. equals ("add") ) { 
30 buildAddO; 
> 

else if (mode. equals { "edit") I I mode. equals ("hold") ) { 

buildEdit(); 

} 

35 else if (mode. equals ("search")) { 

buildSearch () ; 
} 

*/ 

if (mode. equals ("add") || mode. equals ("edit n ) I I mode .equals ("search") ) 
40 { 

buildAddEdit (mode) ; 

} 

else if (mode. equals ("browse") ) { 
buildBrowse () ; 

45 ) 

else { 

pageContext .setAttribute ("stackError", "StackError: mode " + 
mode+" not recognized"); 

) 

50 

return (EVAL_BODY_TAG) ; 

) 



55 public int doAf terBody ( ) { 

try { 

BodyContent body = getBodyContent ( ) ; 
JspWriter out= body .getEnclosingWr iter () ; 
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out. print (Why .get String () ) ; 

} 

catch (IOException ioe) { 
ioe . print St ackTrace ( ) ; 

5 > 

return (SKIP BODY); 
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} 

public int endEndTag () { 
10 return (EVAL_PAGE) ; 

} 

private void buildAddEdit (String mode) { 

15 LinkedList sessionStack=getSessionStack () ; 

boolean pushFlag = false; 
if (isPushO) { 

StackElement se^new StackElement () ; 
sessionStack. add (se) ; 
20 pushFlag = true; 

// se.setMode("edit") ; 

// se. setTableName (tableName) ; 

} 

25 clearStackChildren (sessionStack) ; 

StackElement se= (StackElement) sessionStack. getLast () ; 
se . setMode (mode) ; 

if ( (se.getTableName () != null) && 
( ! se . getTableName ( ) . equals (tableName) ) ) { 
30 se . setRowPointer (0) ; 

se . setSearchS tr ing (null ) ; • 
se . setSearchParams (new Hashtable ( ) ) ; 

} 

se. setTableName (tableName) ; 
35 se.setCurrentKey (pageContext .getRequest () .getParameter (" key Value") ) ; 

setMasterColumn (sessionStack, se, pushFlag); 

pageContext . setAttribute ("stacklnfo", "buildAddEdit (\ ,,n +mode+ ,, \ ,, ) for 
40 tableName) ; 

} 

private void buildBrowse () { 
if (Debug. areDebugging) { 
45 Debug .doLog ( "In buildBrowse ()...", Debug . INFO) ; 

} 

LinkedList sessionStack=getSessionStack () ; 
boolean pushFlag = false; 
50 if (isPushO) { 

StackElement se=new StackElement () ; 
sessionStack. add (se) ; 
pushFlag = true; 
// se. setMode ("browse") ; 
55 // se . setTableName (tableName) ; 

} 

clearStackChildren (sessionStack) ; 
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StackElement W= (StackElement) sessionSta^|^ef*Lsf^l 

se.setMode ("browse") ; 

if ( (se.getTableNameO ! = null) && 

( ! se.getTableName () .equals (tableName) ) ) { 

se . setRowPointer (0 ) ; 

se.setSearchString(null) ; 

se.setSearchParams (new HashtableO) ; 

} 

se . setTableName (tableName) ; 
se . setCurrentKey (null) ; 

// This is probably a hack, and should really be happening elsewhere 
(?)..- 

se .setFormValues (new Hashtable () ) ; 

setMasterColumn ( sessions tack, se, pushFlag) ; 

String doProcess= 

pageContext .getRequest () . getParameter ("doProcess") ; 
String curTableName=se . getTableName () ; 

if (Debug. areDebugging) { 

Debug. doLog ("cur TableName: "+curTableName+" tableName: "+tableName, 
Debug. INFO) ; 

> 

se . setMode ( "browse" ) ; 

if ((doProcess !- null && doProcess. equals ("fullList") ) I I 
! tableName . equals (cur TableName) ) 

{ 

// frag any filters 

se . setSearchParams (new Hashtable ( ) ) ; 
se . setSearchString (null) ; 
se . setTableName (tableName) ; 

} 

pageContext . setAttribute ("stacklnfo", "buildBrowse () for "+ 
tableName) ; 

} 

private boolean isPushO { 

int curStackLevel=getSessionStack() .size()-l; 
return (getStackLevellnt ( ) > curStackLevel ) ; 

) 

private LinkedList getSessionStack() { 

HttpSession session=pageContext . getSession ( ) ; 
LinkedList sessionStack- 

(LinkedList) s es s i on. getAt tribute ("sessionStack") ; 
if (sessionStack = null) { 

if (Debug. areDebugging) { 

Debug . doLog ( "Need to create LinkedList — " , Debug . INFO) ; 

} 

sessionStack = new LinkedList () ; 

session . setAttribute ( "sessionStack" , sessionStack) ; 
StackElement se=new StackElement () ; 
sessionStack. add (se) ; 
se.setMode ("browse") ; 
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se . setTabJWame { tableName) ; 

) 

return (sessionStack) ; 

} 

5 

private int getStackLevellnt () { 

int curStackLevel=getSessionStack() .size()-l; 
if (Debug. areDebugging) { 

Debug. doLog ( n curStackIievel= n +curStackLevel+"\nstackLevel= w + 
10 stackLevel*" \n". 

Debug. INFO) ; 

} 

if (stackLevel == null II stackLevel . indexOf ( 1 @ ■ ) >= 0) { 
return (curStackLevel) ; 

15 } 

if ( stackLevel. indexOf (•+•) >= 0) { 
return (curStackLevel+1) ; 

) 

20 else if (stackLevel . indexOf (»- ' ) >= 0) { 

return ( (curStackLevel-1 < 0) ?0 : curStackLevel-1) ; 

} 

try { 

25 curStackLevel=Integer .parselnt (stackLevel) ; 

} 

catch (NumberFormatException nfe) { 
curStackLevel=0 ; 

) 

30 return (curStackLevel) ; 



public void setMode (String myMode) { 
35 mode=myMode; 
} 

public void set TableName (String myTableName) { 
tableName=my TableName ; 

40 } 

public void setStackLevel (String myStackLevel) { 
stackLevel=myStackLevel ; 

) 

45 

public void setDatabase (String myDatabase) { 
database=myDatabase ; 

> 

50 public void set DbConn (String myDbConn) { 

dbConn=myDbConn ; 

} 

public String getModeO { 
55 return (mode) ; 

) 

public String getTableName ( ) { 
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return (tableflWe) ; 

} 

public String getStackLevel ( ) { 
5 return (stackLevel) ; 

) 

public String getDatabase () { 
return (database) ; 

10 } 

public String getDbConn() { 
return (dbConn) ; 

} 

15 

public static String getParentTableName (LinkedList sessionStack) { 
return (getParentTableName (sessionStack, sessionStack. size () -1) ) ; 

} 

20 public static String getParentTableName (LinkedList sessionStack, 

int stackLevel) { 

if (stackLevel > sessionStack. size ( ) It stackLevel < 1) { 
return ( nn ) ; 

} 

25 return ( ( (StackElement) sessionStack. get (stackLevel-1) ) . getTableName ( ) ) ; 

} 

private void setMaster Column (LinkedList sessionStack, StackElement se, 
boolean pushFlag) { 
30 if (sessionStack. size () > 1) { 

StackElement 

pe= (StackElement) sessionStack. get (sessionStack. size () -2) ; 

MasterDetail md=Master Detail . get Instance (database, dbConn) ; 
35 Vector detailTables=md.getDetailTables (pe.getTableNameO ) ; 

Enumeration dtEnum=detailTables . elements ( ) ; 
se.setMasterColumn(null) ; 
while (dtEnum.hasMoreElements () ) { 

String detailTable= (String) dtEnum.nextElement () ; 
40 if (Debug. areDebugging) { 

Debug. doLog ("table: w +tableName+ n , detailTable: n +detailTable, 
Debug. INFO) ; 

} 

45 

int dot=de tail Table. indexOf (•.'); 

if (detailTable . startsWith (tableName+ n . ■ ) ) { 

se.se tMasterColumn (detailTable. substring (dot+1) ) ; 
if (pushFlag && (pe . getTableName () .equals ( 
50 "CUSTOM_VIEW_PROTOTYPEJL n ) I I pe . getTableName ( ) . equals ( 

n CUSTOM_VIEWJPROTOTYPE_2 " ) | | 

pe. getTableName () .equals ( w CUSTOM_VIEW_PROTOTYPE_3 n ) ) ) 

{ 

pe . setCurrentKey (pageContext . getReques t ( ) . getParameter ( 
55 "parentKey") ) ; 

} 

break; 

} 
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} 

} 

} 

5 private void clearStackChildren<LinkedList sessionStack) { 

int curLevel=getStackLevelInt () ; 
while (sessionStack. size () -1 > curLevel) { 
sessionStack. removeLast () ; 

} 

10 } 
} 

Schemalive/WEB-INF/classes/sessionUtils/StackTagExtralnf o . java 

15 /* $Revision: 2.3 $ */ 

/* $Date: 2001/10/30 01:35:53 $ */ 

package sessionUtils; 

20 import javax. servlet . jsp. *; 

import j avax . servlet . j sp . tagext . * ; 

public class StackTagExtralnfo extends TagExtralnfo { 

25 public static final String version_sessionUtils_StackTagExtraInfo_java = 

"$Revision: 2.3 $"; 

public Variablelnf o[] getVariablelnf o (TagData data) { 
return ( new VariableInfo[] { 
30 new Variablelnfo ("stackError", "String", true, Variablelnf o.AT_BEGIN) , 

new Variablelnfo ("sta-cklnfo", "String", true, Variablelnf o.AT_BEGIN) , 

}); 

} 

} 

35 

Schexnalive/WEB-INF/classes/tagUtils/ViewTag . java 

// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 



40 
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package tagUtils; 



import j avax . servlet . * ; 
import j avax. servlet .http. *; 
45 import javax. servlet. jsp-*; 

import javax. s ervle t. jsp. tagext .*; 

import dbUtils.*; 

50 public class ViewTag extends TagSupport { 

private String entryPoint; 
private String dbName; 
private String dbConn; 

public int doStartTagO { 

ServletRequest request=pageContext .getRequest () , 
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HttpSession sWsion=^ageContext . getSessioPflE 

String tableName=request . getParameter { "tableName" ) ; 
String keyField=request . getParameter ("key Field") ; 
String keyVal=request .getParameter ("keyVal") ; 
String doProcess=request .getParameter ("doProcess") ; 
String stackLevel=request. getParameter ("stackLevel") ; 

pageContext . setAttribute ("tableName", 

(tableName==null) ? "null" : tableName) ; 
pageContext . setAttribute ( " keyField" , 

(keyField==null) ?"null" : keyField) ; 
pageContext . setAttribute ("keyVal", 

(keyVal==null) ?"null" : keyVal) ; 
pageContext . setAttribute ("doProcess", 

(doProcess— null) ?"null" : doProcess) ; 
pageContext . setAttribute ( "stackLevel" , 

(stackLevel==null) ? "8 ": stackLevel) ; 
if ( (String) session. getAttribute ("returnTable") != null) { 

session, remove At tribute ("returnTable") ; 

} 

if ( ( (String) pageContext .getAttribute ("tableName") ) .equals ("null") ) 
pageContext. setAttribute ("tableName", entryPoint.t ©Uppercase () ) ; 

} 

else { 

pageContext. setAttribute ("tableName", 

( (String) pageContext. getAttribute ("tableName") ) . toUpperCase ( ) ) 

} 



tableName= (String) pageContext .getAttribute ( "tableName" ) ; 

DataDictionary dd = DataDictionary . get Instance (dbName, dbConn) ; 
if (dd.getDataDictionaryTD(tableName+"_View") !=• null) { 

pageContext . setAttribute ("or igTableName" , tableName) ; 

pageContext . setAttribute ("tableName" , tableName* "_VIEW") ; 

} 

else { 

pageContext . setAttribute ( " origTableName " , tableName ) ; 

} 

return (EVAL_BODY_INCLUDE) ; 

} 

public void setDefaultEntry Point (String entryPoint) { 
this .entryPoint=entryPoint; 

} 

public void setDbName (String dbName) { 
this .dbName=dbName; 

) 

public void setDbConn (String dbConn) { 
this . dbConn=dbConn ; 

) 

) 



197 



WO 02/059793 PCT/US01/42867 
Schemalive/i^-x«*7wasses/t^ 



// $Revision: 2.3 $ 

// $Date: 2001/10/30 01:35:53 $ 

package tagUtils; 

import javax.servlet .j sp. *; 
import javax.servlet .j sp.tagext.*; 

public class ViewTagExtralnf o extends TagExtralnfo { 

public Variablelnfo!] getVariablelnf o (TagData data) { 
return ( new Variablelnfo [] { 

new Variablelnfo ("tableName", "String" f true, Variablelnfo. AT_BEGIN) , 
new Variablelnfo ("keyField", "String" , true, Variablelnfo .AT__BEGIN) , 
new Variablelnfo ("keyVal", "String" , true, Variablelnfo . AT__BEGIN) , 
new Variablelnfo ("doProcess" , "String", true, Variablelnfo. AT_BEGIN) , 
new Variablelnfo ("stackLevel", "String", true, Variablelnfo. AT_BEGIN) , 
new 

Variablelnfo ("origTableName", "String" , true, Variablelnfo. AT_BEGIN) , 

}); 

} 

) 

S chemalive /WEB- INE/taglib/s tack, tld 

<?xml version="1.0" encoding="ISO-8859-l" ?> 

<!DOCTYPE taglib 

PUBLIC "-//Sun Microsystems, Inc. //DTD JSP Tag Library 1.1//EN" 
"http: / / java . sun. com/j2ee/dtds/web- jsptaglib_l_l . dtd"> 

<taglib> 

<tlibversion>l . 0</tlibversion> 
<jspversion>l.l</ jspversion> 

<tag> 

<name>st ack< /name> 

<tagclass>sessionDtils . StackTag</tagclass> 
<teiclass>sessionUtils . StackTagExtralnf o</teiclass> 
<bodycontent>JSP</bodycontent> 
<attribute> 

<name>mode</name> 

<required>true</required> 

<rtexprvalue>true</rtexprvalue> 
</attribute> 
<attribute> 

<name>tableName</name> 

<required>true</required> 

<r texprval ue> t rue< / r t exprvalue> 
</attribute> 
<attribute> 

<name>stackLevel</name> 

<required>f alse</required> 

<rtexprvalue>true</rtexprvalue> 
</attribute> 
<attribute> 

<name>database</name> 
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<required:^Rie</required> 

<rtexprvalue>true</rtexprvalue> 
</attribute> 
<attribute> 

<name>dbConn</name> 

<r equi red> true< / requi red> 

<rtexprvalue>true</rtexprvalue> 
</attribute> 
</tag> 
</taglib> 

Schemalive /WEB- INF/ taglib/ view, tld 

<?xml version= n 1.0" encoding="ISO-8859-l" ?> 

<!DOCTYPE taglib 

PUBLIC "-//Sun Microsystems r Inc. //DTD JSP Tag Library 1.1//EN" 
"http : // java. sun . com/ j2ee/dtds/web- jsptaglib_l_l - dtd"> 

<taglib> 

<tlibversion>l . 0</tlibversion> 
<j spversion>l . K/j spversion> 

<tag> 

<name>setVars</name> 

<tagclass>tagUtils.ViewTag</tagclass> 
<teiclass>tagUtils . ViewTagExtralnf o</teiclass> 
<bodycontent>JSP</bodycontent> 
<attribute> 

<name>defaultEntryPoint</name> 

<required>true</required> 

<rt exprvalue>true</ rtexprvalue> 
</attribute> 
<attribute> 

<name>dbName</name> 

<required>tme</required> 

<r t exprval , Qe>true</ rtexprvalue> 
</attribute> 
<attribute> 

<name>dbConn</name> 

<required>true</required> 

<r t exprvalue> t rue< / rt exprvalue> 
</attribute> 
</tag> 
</taglib> 
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RUN-TIME ENVIRONMENT FOR THE 
SCHEMALIVE REFERENCE IMPLEMENTATION 

Overview 

The Schemalive Reference Implementation (SRI) is a web application which 
conforms to Sun Microsystems' J2EE (Java 2 Enterprise Edition) Platform, which in turn 
incorporates the JSP (Java Server Pages) 12, Servlet 23, and JDBC (Java Database 
Connectivity) 2.0 specifications on which the SRI explicitly depends. More information 
on the structure of web applications can be found at 
http^cp.oi^aboutJavVcommm The web 

application can be placed in any J2EE-compliant container (i.e., application-server 
software), including such products as BEA WebLogic, Macromedia JRun, and Apache 
Tomcat. 

Directory Structure 

A root directory named Schemalive is required; the system's JSP files and static 
content (i.e., images) are located in this directory. A subdirectory Schemalive/WEB-INF 
is also required, and must contain a file named iveb.xml, which is the deployment 
descriptor (see below) for the application. Supporting classes for the JSP are located in a 
subdirectory Scherndive/WEB-INF/classes. The web.xml references the application's 
custom tag libraries (see below) through tag library descriptor files. These XML descriptors 
are located in a subdirectory Sdiemalme/WEB-INF/tagHb, and have a .tld file extension. 
Following is a tree diagram for the SRI directory structure: 

+ Schemalive 

-AddEditForm . j sp 
-BalloonHelp . j sp 
-Browse . j sp 
-DataDictionary . j sp 
-DoAddEdit . j sp 
-DoViewGenerator . j sp 
-ErrorSOO. jsp 
-ExpiredSession . j sp 
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-Ou tot Sequence . j sp 
-showSession - j sp 
-f common 

-EmptyPararaCheck . j sp 
5 -EntryPoints . j sp 

-GlobalFooter . j sp 

-GlobalHeaderHTML . jsp 

-Global Header Javascript . j sp 

-GlobalHeaderVARS . j sp 
10 + images 

-logo.gif 

-logo-width.gif 
+WKB-INF 

-web.xml 

15 -fclasses 

-Connection .properties 
+ common 

-Debug. class 
-t-dbUtils 

20 -CustomCaps . class 

-CustomDrillDown . class 
-CustomDropDown . class 
-CustomDropDownComponent . class 
-DataDictionary . class 

25 -DataDictionaryServlet . class 

-Dat aDict ionaryTD . class 
-MasterDetail - class 
-MasterDetailServlet .class 
-SQLUtil .class 

30 -TableDescriptor. class 

-ViewGenerator . clas s 
+HTMLDtils 

-Balloon . class 
-BalloonHelp. class 
35 -TableDescriptorDisplay . class 

+sessionUtils 

-ManageSession . class 
-StackElement . class 
-StackTag . class 
40 -StackTagExtralnf o . class 

+tagUtils 

-ViewTag . class 
-ViewTagExtralnf o . class 

+taglib 

45 -stack, tld 

-view.tld 



Deployment Descriptor 

The deployment descriptor (web.xml) is an XML (extensible Markup Language) file 
50 which contains all pertinent configuration information for running the web application. 
The SRI relies on the following portions of the deployment descriptor: servlet 
definitions; tag library references; and security constraints. The XML parsing rules for 

201 



WO 02/059793 PCT/US01/42867 

this file are containeTIPin a DTD (Document Type RSdfiriirtyim 
httpv^ava.sim.coiiy(2ec/dtd^w r el>-app_2_2.dtd. Refer to the JSP specification (above) 
for more information on deployment descriptors. 

Servlet Definitions 

The SRI incorporates a number of utility servlets (server-side Java applets which 
conform to the CGI specification) . Servlets are identified in a <servlet> section within 
wefrxml. A name is assigned to each servlet (which is used in creating a servlet mapping, 
described below), and this name is equated with the appropriate class-file name 
(specified relative to the Sdiemcdive/WEB-INF/classes subdirectory). For example, a 
given servlet might be identified as follows: 

<servlet> 

<servlet-name>DataDictionaryServlet</servlet-name> 
<servlet-class> 

dbUtils . DataDictionaryServlet 
</servlet-name> 
</servlet> 

By this definition, the following path should exist: 

Scherrudiue/lWB-INF/dassetf 

Note that the <servlet~name> does not represent the actual URL (Uniform 
Resource Locator) for the servlet; a separate mapping from <servlet-name> to URL 
occurs in a <servlet-mapping> section: 

<servlet-ioapping> 

<servlet-name>DataDictionaryServlet</servlet-name> 
<url-pattern>DataDictionaryServlet</servlet-name> 

</servlet-mapping> 

By this definition (and assuming the root directory is Schemcdive), the URL: 
httpv7<host name>:<port>/SchemaUvQ/DataDictionaiyServlet 

would cause the J2EE container to execute the code f ound in 
Schemdive/WEB-INF/das$e^<fo 
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A tag library contains Java code that implements custom HTML tags for use 
within JSPs. When the JSP engine encounters such tags, it makes corresponding Java 
calls into the tag libraries. For more information, refer to the JSP specification. 

5 A <taglib> section within wefrxml maps a URI (as used from within the JSP) to a 

tag library descriptor (which contains information about the associated class name, 
method calls, tag parameters). Below is a sample <taglib> section: 

<taglib> 

10 <taglib-uri>view</taglib-uri> 

<taglib-location>WEB-INF/taglib/view.tld</taglib-location> 
</taglib> 

See httpvftava.sun.conVj2e^dt^^ for the XML DTD for 

15 taglib. 

The following is the contents of Schemdivefl/VEB-INF/taglib^ 

<taglib> 

<tlibversion>l . 0</tlibversion> 
20 < j spversion>l . 2</ j spversion> 

<tag> 

<name>setVars</name> 

<tagclass>tagUtils.ViewTag</tagclass> 
25 <teiclass>tagUtils . ViewTagExtraInfo</teiclass> 

<bodycontent>JSP</bodycontent> 
<attribute> 

<name>defaultEntryPoint</name> 
<required>true</required> 
30 <rtexprvalue>true</rtexprvalue> 
</attribute> 
<attribute> 

<name>dbName</name> 
<required>true</required> 
35 <rtexprvalue>true</rtexprvalue> 
</attribute> 
<attribute> 

<name>dbConn< / name> 
<required>true</required> 
40 <rtexprvalue>true</rtexprvalue> 
</attribute> 
</tag> 
</taglib> 
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The importan^p&rts are the <name>, <tagclass^Md i^ftjW^^a^iETOffl6aSges 
referenced in <taglclass> must lie along the J2EE-container's CLASSPATH (note that the 
Schemdive/WEB-INF/classes directory is automatically included in the CLASSPATH). 
Combined with <tagUb-uri>, there is enough information now to use the custom tag 
within a JSP. One such invocation would look like this: 

<view : setVars def aultEntryPoint=" <%=* entryPoints [0] %>" dbName=" 

<%= dbName %>" dbConn-"<%= dbConnName %>"> 
</view : setVars> 

Notice the use of <taglib-uri>, <name>, and <attributes> within the custom tag. 
Also, it is perfectly legal to use JSP inline variables, such as <%= entryPoints[0] %>, as 
the example shows. 

Security Constraints 

web.xtnl contains information about how the SRI web application should handle 
security. This includes specifying wliat to secure, and hew - as well as who can access 
the application (which is governed by the role names to which the user is assigned). The 
assignment of users to roles, however, is the responsibility of the J2EE container, and is 
handled differently by the different containers. The <security-constrcrint> section 
controls what is protected, and establishes the corresponding role name, while the 
<tegin-amfig> section establishes the user-authentication method. Here is a sample: 



<security-constraint> 

<web-resottrce-collection> 

<web-resource-name>Schemalive</web-resource-name> 

<url-pattern>/*</url-pattern> 
<http-method>GET</http-method> 

<http-method>POST</http-method> 
</web-resource~collection> 
<auth-constraint> 
<role-name>Schemalive</role-name> 
</auth-constraint> 
</security-constraint> 
<login-con f ig> 

<auth-raethod>BASIC</auth-method> 

<realm-name>Schemalive</realm-name> 
</login-config> 
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Within the ^&b-resource-collection> section, p^^^^^t^m^&y^ e 
entire application (i.e., "I*") for the GET and POST methods. The <autii-constraint> tag 
references a role named Schemalive} somewhere within the container' s configuration, 
this role is defined and a set of userids and passwords associated with it The 
<bgin-config> section establishes BASIC as the authentication method; this is what will 
cause the userid/password prompt to pop-up when first accessing the site. 

Connection Pooling 

The SRI accomplishes database connectivity through the use of connection 
pooling, as defined in the JDBC 2.0 specification (For documentation, see 
httpv/java.stutxon^2se/13/doc^ 

In connection pooling, a specified number of connections are pre-made to the 
underlying RDBM5 (Oracle, in the reference implementation) at container start-up time. 
Connections are "borrowed" - that is, checked in and out of this pool - by program 
threads on an as-needed basis, without being opened, initialized, closed each time. 
This provides a dramatic improvement in the application's performance. The 
mechanics of the connection pool are largely hidden from the software; the standard 
API calls for opening and closing connections are used, although in actuality the 
corresponding connections are merely being checked in and out of the pool. The 
particular interfaces used for connection pooling can be found in the API 
documentation at httpv^ava^unxoiq/pro^ (H^ 
pertinent classes are javax.sql. CmnectionPoolDataSource and javca.sql.PooledConnection.) 

A static handle to the connection pool is managed through the dbUtflkSQLUtil 
class, which is implemented in 

Schemdive/\WB-INF/classes/&^ This class obtains handles to 

pool connections using the Oracle JDBC 2.0 driver interface; the Javadocs for this API 
can be found at http//download.oradexom.ot^ 

A file named Schemdwe/VSniB-^ will need to be 

customized for each particular installation JDBCURL contains a (properly formatted) 
string to reference the Oracle database-server instance. The SRI currently references the 
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Type 2 JDBC driver, Wd the corresponding URL is irfflfe ffraffflf^Bb&i^^ 
name>. The user and pwd properties refer to the credentials the SRI will use for 
database access; if/ when these values need to change, the server must be restarted in 
order for those changes to take effect. 

Run-Time Maintenance 

To enhance system performance (by reducing the need for real-time database 
queries), the SRI maintains two caches of information 

The first is called the DataDictionary, and contains all of the metadata derived by 
interrogating the schema (comprising table and column names, column datatypes and 
sizes, referential-integrity constraints, check constraints, and view definitions). The 
second is called BdloonHelp, and contains all of the help information specified in the 
base-tables HELPjOBJECT and HELPJSCHEMA. 

When changes are made to the schema structure, or to the records in the help 
tables, these cached objects must (variously) be refreshed. This can be done 
dynamically, without having to restart the container. 

The DataDictionary is rebuilt by referencing the JSP DataDictionary.jsp. There 
are three options when rebuilding the DataDictionary: Only, Views (with check), and 
Views (without check). The "Only" option simply rebuilds the DataDictionary object 
(i.e., re-interrogates the database) without rebuilding any (system-generated) views. 
The other two modes regenerate these views on the fly; the "with check" mode checks 
to see if a given view (for a corresponding table) already exists, and rebuilds the view 
only if it is not found. The "without check" option does a brute-force rebuild of all 
system-generated views, regardless of whether or not they are already defined. 

Note that while the DataDictionary is being rebuilt (which can be a lengthy 
process, depending on the size of the schema), users will be blocked from accessing the 
application. 

BalloonHelp is rebuilt by referencing the JSP BalloonHelp.jsp. The current 
contents of the BalloonHelp object are displayed along with a link to rebuild. When the 
link is clicked, die cached object is refreshed from the base-tables. 
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Changes that »f stored to these cached objecR ee Biirf^ 
the application. 

Summary 

Because of its adherence to various open-standard specifications, the SRI is not 
5 dependent on any one container, but rather, can operate in any J2EE compliant 
container. The only customization that should be required to run the SRI in a particular 
environment are the variables (mentioned above and) defined within the 
Sdtemlwe/IWB-Iffl file. 
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REM ***** CreateScWRa.sql 
REM ***** 
REM ***** 

REM ***** SAMPLE SCHEMALIVE SCHEMA 

5 REM ***** v0.5 

REM ***** 10/30/01 
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FOR CONSULTANCY CRM — CREATE TABLES 



CONNECT INTERNAL / ORACLE @ ORA8 16; 
10 DROP USER CNSLT_CRM CASCADE; 

DROP TABLESPACE CNSLT_CRM INCLUDING CONTENTS; 

CREATE TABLESPACE CNSLT_CRM DATAFILE • d: \orant\database\cnslt_crm.dat ' SIZE 
10M REUSE AUTOEXTEND ON MAXSIZE UNLIMITED; 

15 

CREATE USER "CNSLT_CRM" IDENTIFIED BY "CONSULTING" DEFAULT TABLESPACE 

n CNSLT_CRM" ; ' 

GRANT "CONNECT" TO "CNSLT_CRM"; 
GRANT "RESOURCE" TO "CNSLT_CRM"; 
20 GRANT "DBA" TO "CNSLT_CRM"; 



CONNECT CNSLT CRM/CONSULT1NG@ORA816; 



CREATE TABLE USERS ( 
Users_Key 

); 



NUMBER (*,0) PRIMARY KEY NOT NULL 



30 



35 



CREATE TABLE CONTRACTU AL_RELAT I ONSHIP ( 
Contractual_Relationship_Key 
Contractual_Relationship_Name 
Description 
Entered_JBy_Users_Key 

USERS <Users_Key) NOT NULL, 
Entry__Date 

Modified_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last_Modified_Date 

) ; 

CREATE SEQUENCE CONTRACTUAL_RELATIONSHIP_SEQ INCREMENT BY 1 START WITH 
NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 



NUMBER ( * , 0 ) PRIMARY KEY NOT NULL, 
VARCHAR2(5G) NOT NULL, 
VARCHAR2(255) , 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 



CREATE TABLE PRIORITY ( 
Priority_Key 
Priority_Name 
Description 
50 Entered__By_Users_Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modified_By_UsersJKey 

USERS (UsersJKey) NOT NULL, 
55 Last_Modified_Date 
) ; 



CREATE SEQUENCE PRIORITY_SEQ INCREMENT BY 1 START WITH 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 



NUMBER ( * , 0 ) PRIMARY KEY NOT NULL, 

VARCHAR2(50) NOT NULL, 

VARCHAR2(255), 

NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

1 NOMAXVALUE 
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10 



15 



20 



25 



30 



45 



50 



CREATE TABLE REGION ( 
Region_Key 
Region_JJame 
Description 
Enter ed_By_Users__Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modified_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last_Modified_Date 

) ; 

CREATE SEQUENCE REG IONISE Q INCREMENT BY 1 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE REGION IS 
» <detailTables> 
<detailTable> 

COUNTRY . RegionKey 
</detailTable> 
<detailTable> 

OPPORTUNITY . Region_Key 
</detailTable> 
</detailTables>»; 



CREATE TABLE COUNTRY ( 
Country_Key 
Country_Name 
Region_Key 

REGION (Region_Key) NOT NULL, 
Entered_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modified By_Users__Key 

USERS (Users_Key) NOT NULL, 
Last_Modified_Date 

); 

CREATE SEQUENCE COUNTRYJSEQ INCREMENT BY 1 

MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE COUNTRY IS 
'<detailTables> 
<detailTable> 

CITY . Country_Key 
</detailTable> 
<detailTable> 

STATE_ORJPROVINCE . Country_Key 
</detailTable> 
</detailTables> ■ ; 



NUMBER ( * , 0 ) PRIMARY KEY NOT NULL, 

VARCHAR2(50) NOT NULL, 

VARCHAR2 (255) , 

NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYS DATE NOT NULL, 
NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

START WITH 1 NOMAX VALUE 



NUMBER (*,0) PRIMARY KEY NOT NULL, 

VARCHAR2(50) , 

NUMBER (*, 0) REFERENCES 

NUMBER (*, 0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

START WITH 1 NOMAXVALUE 



CREATE TABLE STATE_OR_PROVINCE ( 
State_Or_ProvinceJKey 
State_0r_Province_ID 
56 State_Or_Province_Name 
Count ry_Key 

COUNTRY (Country_Key) NOT NULL, 
Entered_By_Users_Key 



NUMBER (*,0) PRIMARY KEY NOT NULL, 
VARCHAR2 (2) , 
VARCHAR2(50) NOT NULL, 
NUMBER ( * , 0 ) REFERENCES 

NUMBER (*,0) REFERENCES 



209 



WO 02/059793 



PCT/US01/42867 



USERS (Osers_K8PJ NOT NULL, 

Entry_Date DATE DEFAULT SYS DATE NOT NULL, 

Modif ied_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

USERS (Users_Key) NOT NULL, 

5 Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

>; 

CREATE SEQUENCE STATE_OR_PROVINCE_SEQ INCREMENT BY 1 START WITH 1 

NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE STATE_OR_PROVINCE IS 
10 1 <hints> 

<detailTables> 
<detailTable> 

CITY . State__Or_ProvinceJKey 
</detailTable> 
15 </detailTables> 
</hints>'; 



CREATE TABLE CITY ( 

20 CityJKey NUMBER (*,0) PRIMARY KEY NOT NULL, 

Cityjtfame VARCHAR2(50) NOT NULL, 

S tate_Or_Province_Key NUMBER ( * , 0 ) REFERENCES 

STATE_OR_PROVINCE (State_Or_Province_Key) , 
Count ry_Key NUMBER ( * , 0 ) REFERENCES 

25 COUNTRY (Country__Key) NOT NULL, 

EnteredJBy_Users_Key NUMBER{*,0) REFERENCES 

USERS (Users_Key) NOT NULL, 
Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modif ied_By_Users_Key NUMBER (*,0) REFERENCES 

30 USERS (Users_Key) NOT NULL, 

Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

) ; 

CREATE SEQUENCE CITY_SEQ INCREMENT BY 1 START WITH 1 NOMAXVALUE 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
35 COMMENT ON TABLE CITY IS 
1 <hints> 
<sql> 
SELECT 
A.City_Key, 
40 A.City_Name | | 

DECODE (B . State_Or_Province_ID, 
NULL, 

DECODE (B. Stat e_or__Province_Name, NULL, 
DECODE (C . Count ry_Name, NULL, NULL, 
45 ,,,, r NULL, 

• ' " ' , NULL, 

1 ■ , ■ » || C. Count ry_Name) , 



DECODE (C. Count ry_Name, NULL, NULL, 
50 1 1 ' 1 , NULL, 

■ ■ ' • , NULL, 

• » , ' 1 || C. Count ry_Name) , 

• i ii 

f 

DECODE (C. Count ry_Name, NULL, NULL, 
55 • 1 ' ' , NULL, 

« • » < , NULL, 

• • , » ' || C.Country_Name) , 
' ' , ' ' || B . State_or_Province_Name 
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), 

i i i i 

f 

DECODE (B . State_orJ?rovinceJName , NULL/ 
DECODE (C . Count ry_Name , NULL, NULL, 
5 • ■ f ■ , NULL, 

" • ■ • , NULL, 

■ • , 1 ■ || C. Count ry_Name) , 

titi 

r 

DECODE (C • Count ry__Name, NULL, NULL, 
10 ' 1 1 ' r NULL, 

• ' ' ' , NULL, 

• ■ , ■ • || C. Count ry_Name) , 

ii ti 

DECODE (C. Count ry_Name, NULL, NULL, 
15 ' • 1 1 , NULL, 

■ • » » , NULL, 

• • , 11 ||C. Country_Name) , 
1 • , • ■ || B.State_or_Province_Name 



20 



)/ 
ii it 



DECODE (B . State_or_ Pr ovine e_Name, NULL, 
DECODE (C.Country_Name, NULL, NULL, 
• » ■ • , NULL, 

• ■ 1 1 , NULL, 

25 ' 1 , ' » I I C. Count ry_Name) , 

iiii 

r 

DECODE (C . Count ry_Naine , NULL, NULL, 

• 1 ■ ■ , NULL, 

» » • • , NULL, 

30 ■ ' , ■ 1 I I C.Country_Name) , 

ii ii 

DECODE (C. Count ry_Name, NULL, NULL, 
• ' • ■ , NULL, 
f 1 1 NULL, 

35 11 II C.Country_Name) , 

1 1 , • • | | B.State_or_Province_Name 

>, 

» ' M B.State_Or_Province_ID 
) AS City 

40 FROM 

CITY A, STATE_ORJ?R0VINCE B, COUNTRY C 
WHERE 

A.State_or_Province_Key = B . State_or_Province_Key (+) 
AND 

45 A.CountryJKey = C . Count ry_Key (+) 

ORDER BY 
2 

</sql> 
</hints>' ; 

50 



CREATE TABLE COMPANY { 

Company_Key NUMBER (*,0) PRIMARY KEY NOT NULL, 

Company_Name VARCHAR2(50) NOT NULL, 

55 NDA_Flag NUMBER (1,0) DEFAULT 0 NOT NULL, 

Contractual_Rela t ionship_Key NUMBER ( * , 0 ) REFERENCES 

CONTRACTUAL__RELATIONSHI P (Contractual_Relationship_Key) NOT NULL, 

Priori ty_Key NUMBER (*,0) REFERENCES 
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PRIORITY (Prio«ty_Key) NOT NULL, 
Address_l 
Address_2 
City_Key 

CITY (City_Key) , 
State_Or_Province_Key 

STATE_OR_PROVINCE ( S tate_Or_Province_ 
Postal_Code 
Country_Key 

COUNTRY (Country_Key) , 
Phone 

Company_URL 
Notes 

Entered^ By_Users_ Key 

USERS (Users JKey) NOT NULL, 
Entry_Date 

Modif ied_ By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last Modified Date 



); 

CREATE SEQUENCE COMPANY_SEQ INCREMENT BY 

MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE COMPANY IS 
" <hints> 

<detailTables> 
<detailTable> 

PEOPLE . Company_Key 
</detailTable> 
</detailTables> 
</hints> f ; 
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VARCHAR2 ( 80 ) , 
VARCHAR2 (80), 
NUMBER (*, 0) REFERENCES 

NUMBER (*,0) REFERENCES 
Key) , 

VARCHAR2 (10), 

NUMBER (*,0) REFERENCES 

VARCHAR2 (80) , 
VARCHAR2(255) , 
VARCHAR2 (4000) , 
NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

1 START WITH 1 NOMAXVALUE 



CREATE TABLE PEOPLE ( 

People_Key NUMBER (*,0) PRIMARY KEY NOT NULL, 

35 Last_Name VARCHAR2 (30) NOT NULL, 

FirstJName VARCHAR2(30) NOT NULL, 

Middle JSame VARCHAR2 (30), 

Company_Key NUMBER ( * , 0 ) REFERENCES 

COMPANY (CompanyJKey) CONSTRAINT nn_corapany NOT NULL, 

40 Job_Title VARCHAR2 (50) , 

Salutation_Name VARCHAR2 (30) , 

AddressJL VARCHAR2 (80) , 

Addres 3_2 VARCHAR2 (80), 

CityJKey NUMBER (*,0) REFERENCES 

45 CITY (City__Key) CONSTRAINT nn_city NOT NULL, 

S tat e_Or__Province_Key NUMBER ( * , 0 ) REFERENCES 

STATE_OR_PROVINCE (State_Or_Province_Key) , 

Postal_Code VARCHAR2 (10) , 

Count ry_Key NUMBER ( * , 0 ) REFERENCES 

50 COUNTRY (Country_Key) CONSTRAINT nn_country NOT NULL, 

Work_Phone VARCHAR2 (80) , 

Cell_Phone VARCHAR2 (80) , 

Wor k_Fax VARCHAR2 (80), 

Work_Pager VARCHAR2 (80) , 

55 WorkJBmail VARCHAR2 (80) , 

Active_Flag NUMBER (1,0) DEFAULT 0 NOT NULL, 

LoginJLD VARCHAR2 (30) , 

Notes VARCHAR2 (4000) , 
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Entered_By_UserWRey NUMfBlfl|X*T[DX iPRlSBER^ ! 

USERS (Users_Key) NOT NULL, 

Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modif ied_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

USERS (Users_Key) NOT NULL, 

Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

) ; 

CREATE SEQUENCE PEOPLE_SEQ INCREMENT BY 1 START WITH 1 NOMAXVALUE 

MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 



CREATE TABLE OPPORTUNITY_STATUS ( 
Opportunity_Status_Key 
Opportunity^ tatus_Name 
Description 
Entered_By_Users_Key 

USERS (Users3©y) NOT NULL, 
Entry_Date 

Modif ied_By_Users_Key 

USERS (UsersJKey) NOT NULL, 
Last_Modified_Date 

) ; 

CREATE SEQUENCE OPPORTUNITY_STATUS 
NOMAXVALUE MINVALUE 1 NOCYCLE 



NUMBER (*,0) PRIMARY KEY NOT NULL, 

VARCHAR2(50) NOT NULL, 

VARCHAR2 (255) , 

NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

SEQ INCREMENT BY 1 START WITH 1 
"CACHE 10 NOORDER; 



CREATE TABLE OPPORTUNITY ( 
OpportunityKey 
Opportunity_Title 
Opportunity_Date 
Con t act_Per s on_Key 

PEOPLE (People_Key) NOT NULL, 
Region_Key 

REGION (RegionJKey) NOT NULL, 
Revenue_Potential 
Profit_Potential 
Amount_Spent_YTD 
Probability_Of__Success 



NUMBER (*,0) PRIMARY KEY NOT NULL, 

VARCHAR2(50) NOT NULL, 

DATE NOT NULL, 

NUMBER (*,0) REFERENCES 

NUMBER (* , 0) REFERENCES 

NUMBER (*, 2) , 
NUMBER (*, 2), 
NUMBER (*, 2), 

NUMBER (2,0) NOT NULL CHECK 



(Probability_Of_Success BETWEEN 0 AND 99), 



Referred_By_Key 

PEOPLE (People_Key) NOT NULL, 
Opportunity^ Status_Key 



NUMBER (*,0) REFERENCES 



NUMBER (*,0) REFERENCES 



OPPORTUNITY_STATUS(Opportunity_Status_Key) NOT NULL, 



Notes 

Entered_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modif ied_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last Modified Date 



VARCHAR2(4000) , 
NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*, 0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 



); 

CREATE SEQUENCE OPPORTUNITY_SEQ INCREMENT BY 1 

MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE OPPORTUNITY IS 
•<hints> 
<sql> 
SELECT 
A. Opportunity JKey, 



START WITH 



1 NOMAXVALUE 
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A . Oppor tuni^FTitle 

FROM 

Opportunity A 
WHERE 

5 A.Opportunity_Key IS NOT NULL 

ORDER BY 
1 

</sql> 

<detailTables> 
10 <detailTable> 

CONTACT_EVENT . Opportunity_Key 
</detailTable> 
<detailTable> 

OPPORTUNITY_TYPE - Opportunity_Key 
15 </detailTable> 
</detailTables> 
</hints> ! ; 



20 



25 



CREATE TABLE CONTACTJTYPE { 
Contact_Type_Key 
Contact_Type_Name 
Description 
Entered_By_Users_Key 

OSERS (UsersJKey) NOT NULL, 
Entry_Date 

Modi f ied_By_User s_Key 

USERS (Users_Key) NOT NULL, 
Last Modified Date 



30 ); 



CREATE SEQUENCE CONTACT_TYPE_SEQ INCREMENT 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 



NUMBER (*,0) PRIMARY KEY NOT NULL, 

VARCHAR2(50) NOT NULL, 

VARCHAR2(255), 

NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYS DATE NOT NULL, 
NUMBER (* f 0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

BY 1 START WITH 1 NOMAXVALUE 



35 CREATE TABLE CONTACT_EVENT ( 

Contact_EventJKey NUMBER (*,0) PRIMARY KEY NOT NULL, 

Contact_Event_Title VARCHAR2 (255) , 

Opportunity_Key NUMBER ( * , 0 ) REFERENCES 

OPPORTUNITY (OpportunityJKey) NOT NULL, 
40 Contact_Type_Key NUMBER (*,0) REFERENCES 

CONTACTJTYPE (Contact_Type_Key) NOT NULL, 
Previous_Event_Key NUMBER (*,0) REFERENCES 

CONTACT_EVENT(Contact_Event_Key) , 
Event_Date DATE, 
45 Notes VARCHAR2 (4000) , 

Entered_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

USERS (Users_Key) NOT NULL, 
Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modif ied_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

50 USERS (Users_Key) NOT NULL, 

Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

) ; 

CREATE SEQUENCE CONTACT_EVENT_SEQ INCREMENT BY 1 START WITH 1 NOMAXVALUE 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
55 COMMENT ON TABLE CONTACT_EVENT IS 
'<detailTables> 
<detailTable> 

CONTACT_PARTICI PANTS . Contact_Event_Key 
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</detailTablel 
</detailTables>'; 



CREATE TABLE CONTACT_PARTICIPANTS ( 

Cont actPart icipant_Key NUMBER ( * , 0 ) 

Cont act JSventJCey NUMBER ( * , 0 ) 

CONTACTJ3VENT (Contact_Event_Key) NOT NULL, 
People^ Key 

PEOPLE (People_Key) NOT NULL, 
En t e r e d_B y_Us e r s_Ke y 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modified_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last Modified Date 



NUMBER(*,0) 
NUMBER (*,0) 



PRIMARY KEY NOT NULL 
REFERENCES 

REFERENCES 

REFERENCES 



DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 



DATE DEFAULT SYSDATE NOT NULL 



); 

CREATE SEQUENCE CONTACT_PARTICIPANTS_SEQ INCREMENT BY 1 

NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE CONTACT_PARTI CI PANTS IS 
'<detailTables> 
<detailTable> 

FOLLOW_UP_ACTIONS . Contact J?articipant_Key 
</detailTable> 
</detailTables>'; 



START WITH 



CREATE TABLE FOLLOW_UP_ACTIONS ( 
FOLLOW_UP_Actions_Key 
Contact_Participant_JKey 

CONTACT_PARTICIPANTS (Contact^ 
Description 
Due_Date 
Completed_Date 
Entered_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modi f i ed__By__Us er s_Key 

USERS (Users_Key) NOT NULL, 
Las tModi f ied_Date 

); 

CREATE SEQUENCE FOLLOW_UP_ACTIONS_ 
NOMAXVALUE MINVALUE 1 NOCYCLE" 



NUMBER (*,0) PRIMARY KEY NOT NULL 
NUMBER (*,0) REFERENCES 
ParticipantJKey) NOT NULL, 
VARCHAR2(255) , 
DATE, 
DATE, 

NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

SEQ INCREMENT BY 1 START WITH 1 
" CACHE 10 NOORDER; 



CREATE TABLE PRODUCTS_AND_SERVICES ( 
Products_And_Services__Key 
Product s_And_S ervi ces_Name 
Description 
Entered_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modified_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last_ModifiedJDate 

); 

CREATE SEQUENCE PRODUCTS_AND_SERVICES 
NOMAXVALUE MINVALUE 1 NOCYCLE CA 



NUMBER (*,0) PRIMARY KEY NOT NULL 
VARCHAR2(50) NOT NULL, 
VARCHAR2(255) , 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

SEQ INCREMENT BY 1 START WITH 1 
IHE 10 NOORDER; 
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CREATE TABLE OPPORTUNITY_TYPE ( 

Opportunity_Type_Key NUMBER (*,0) PRIMARY KEY NOT NULL, 

5 Opportunity_Key NUMBER (*,0) REFERENCES 

OPPORTUNITY (Opportunity_Key) NOT NULL, 
Product s_And_Services_Key NUMBER (* , 0) REFERENCES 

PRODUCTSJWD_SERVICES(Products_And_ServicesJKey) NOT NULL, 
Entered_By_Users_Key NUMBER (*,0) REFERENCES 

10 USERS (Users_Key) NOT NULL, 

Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modified_By_Users_Key NUMBER (*, 0) REFERENCES 

USERS (Users_Key) NOT NULL, 
Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

15 ); 

CREATE SEQUENCE OPPORTUNITY_TYPE_SEQ INCREMENT BY 1 START WITH 1 
NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 

ALTER TABLE USERS ADD ( 
20 — Users_Key NUMBER (*,Q) PRIMARY KEY NOT NULL, 

Peoplejtey NUMBER (*,0) UNIQUE REFERENCES 

PEOPLE (People_Key) CONSTRAINT nnjpeople NOT NULL, 
LoginJLD VARCHAR2(30) NOT NULL, 

Entered_By_Users_Key NUMBER (*,0) NOT NULL CONSTRAINT 

25 f k_users_to_entered_by REFERENCES USERS (Users_Key) , 

Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modified_By_Users_Key NUMBER (*,0) NOT NULL CONSTRAINT 

f k_users_to_modif ied_by REFERENCES USERS (Users_Key) , 
Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

30 ); 

CREATE SEQUENCE USERS_SEQ INCREMENT BY 1 START WITH 1 NOMAXVALUE 

MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
ALTER TABLE USERS DISABLE CONSTRAINT nn_people; 
ALTER TABLE USERS DISABLE CONSTRAINT f k_users_to_e liter ed_by; 
35 ALTER TABLE USERS DISABLE CONSTRAINT f k_users_tojmodif ied_by; 
INSERT INTO USERS 

(Users_Key, Login_ID, Entered_By_Users_Key, Modif ied_By_Users_Key) 
VALUES 

(USERS_SEQ. NextVal, » DEVONSHIRE \mpk» , USERSJSEQ .NextVal, 
40 USERS_SEQ , NextVal ) ; 

ALTER TABLE USERS ENABLE CONSTRAINT f k_users_to_entered_by; 
ALTER TABLE USERS ENABLE CONSTRAINT f k_users_to_raodif ied_by; 
COMMENT ON TABLE USERS IS 
' <hints> 
45 <detailTables> 
<detailTable> 

SECURITY_GROUP_USER . User s_Key 
</detailTable> 
</detailTables> 
50 </hints>'; 

ALTER TABLE PEOPLE DISABLE CONSTRAINT nn_company; 
ALTER TABLE PEOPLE DISABLE CONSTRAINT nn_city; 
ALTER TABLE PEOPLE DISABLE CONSTRAINT nn_country; 
INSERT INTO PEOPLE 
55 (People_Key, Last_Name, First_Name, Middle_Name, Active_Flag, 

Entered_By_Users_Key, Modif iedJBy_Users_Key) 
VALUES 

(PEOPLE_SEQ. NextVal, •Kaufman 1 , 'Michael 1 , 'Philip 1 , 1, (SELECT 
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MIN (Users_Key) W)M USERS) , (SELECT MIN (UsejP^7J/«6H50^Sf 
UPDATE USERS SET People_Key = (SELECT MIN (People_Key) FROM PEOPLE) WHERE 
Users_Key » (SELECT MIN (Users_Key) FROM USERS); 
ALTER TABLE USERS ENABLE CONSTRAINT nnjpeople; 

5 

CREATE TABLE SECURI TY_T ABLE ( 

Security_Table_Key NUMBER (*,0) PRIMARY KEY NOT NULL, 

Secur ityJTable_Name VARCHAR2(50) UNIQUE NOT NULL, 

Entered_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

10 USERS (Users_Key) NOT NULL, 

Entry_Date DATE DEFAULT SYS DATE NOT NULL, 

Modif ied_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

USERS ( User s — Key) NOT NULL, 
Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

15 ); 

CREATE SEQUENCE SECURI TY__TABLE_SEQ INCREMENT BY 1 START WITH 1 

NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
COMMENT ON TABLE SECURI TY_T ABLE IS 
•<hints> 
20 <detailTables> 
<detailTable> 

SECURI TY_GROUPJTABLE . Secur ity_Table_Key 
</detailTable> 
</detailTables> 
25 </hints>»; 



CREATE TABLE SECURI TY_GROUP ( 

Security_Group_Key NUMBER ( * , 0 ) PRIMARY KEY NOT NULL, 

30 Security_Group_Narae VARCHAR2(50) UNIQUE NOT NULL, 

Entered_By_UsersJKey NUMBER (*, 0) REFERENCES 

USERS (Users_Key) NOT NULL, 
Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modif ied_By_Users_Key NUMBER (*, 0) REFERENCES 

35 USERS (Users_Key) NOT NULL, 

Last_Modified_Date DATE DEFAULT SYSDATE NOT NULL 

) ; 

CREATE SEQUENCE SECURI TY_GROUP_SEQ INCREMENT BY 1 START WITH 1 
NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
40 COMMENT ON TABLE SECURI TY_GROUP IS 
, <detailTables> 
<detailTable> 

SECURITY_GROUP_USER . Security_Group_Key 
</detailTable> 
45 <detailTable> 

SECURI TY_GROUP_JTABLE . Secur i t y_ Gr oup_Ke y 
</detailTable> 
</detailTables>'; 

50 

CREATE TABLE SECURITY_GROUP_USER ( 

Secur ity_Group_User_Key NUMBER (*,0) PRIMARY KEY NOT NULL, 

Security_Group_Key NUMBER ( * , 0 ) REFERENCES 

SECURITY_GROUP(Security_Group_Key) NOT NULL, 
55 Users_Key NUMBER ( * , 0 ) REFERENCES 

USERS (Users_Key) NOT NULL, 
Entered_By_Users_Key NUMBER (* , 0 ) REFERENCES 

USERS (Users_Key) NOT NULL, 
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NUMBER ( * , 0 ) REFERENCES 
DATE DEFAULT SYS DATE NOT NULL 



); 

CREATE SEQUENCE SECURI TY_GROUPJJSER_SEQ INCREMENT BY 1 
NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 



START WITH 



CREATE TABLE SECURI TY_GROU POTABLE ( 
10 Security_Group_TableJKey 
Se cu r i t y_Gr oup_Ke y 

SECURITY_GROUP (Security_GroupJKey) 
Security_Table_Key 

SECURITYJTABLE (Security_Table_Key) 
15 Can_Browse_Flag 
Can_Edit_Flag 
Can_Add_Flag 
Can_De 1 e t e_Fl ag 
Entered_By_Users_ Key 
20 USERS (Users_Key) NOT NULL r 

Entry_Date 

Modified_By_Dsers_Key 

USERS (User s_Key) NOT NULL, 
Las t_Mo di f i e d_Da t e 

25 ) ; 

CREATE SEQUENCE SECURI T Y_GROUP_JTABLE_SEQ 
NOMAXVALUE MINVALUE 1 NOCYCLE CACHE 



NUMBER(*,0) 
NUMBER (*,0) 
NOT NULL, 

NUMBER (* ,0) 
NOT NULL, 

NUMBER (1,0) 
NUMBER (1,0) 
NUMBER(1,0) 
NUMBER (1,0) 
NUMBER(*,0) 



PRIMARY KEY NOT NULL, 
REFERENCES 



REFERENCES 



DEFAULT 
DEFAULT 
DEFAULT 
DEFAULT 



NOT NULL, 
NOT NULL, 
NOT NULL, 
NOT NULL, 



REFERENCES 



DATE DEFAULT SYS DATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYS DATE NOT NULL 



INCREMENT BY 
10 NOORDER; 



START WITH 



INSERT INTO SECURI TYJTABLE 
30 (Security_Table_Key, Security_Table_Name, Entered_By_Users_Key, 

Modif ied_By_Users_Key) 
SELECT 

SECURITY_TABLE_SEQ.NextVal, Table_Name, (SELECT MIN (Users_Key) FROM 
USERS), (SELECT MIN (Users_Key) FROM USERS) 
35 FROM 

USER TABLES; 



INSERT INTO SECURITY_GROUP 
40 (Security_Group_Key, Security_Group_Name, Enter ed_By_Users_Key, 

Modif ied_By_Users_Key) 
VALUES 

(SECURITY_GROUP_SEQ.NextVal, 'Administrator', (SELECT MIN (Users_Key) FROM 
USERS) , (SELECT MIN (UsersJKey) FROM USERS) ) ; 
45 INSERT INTO SECURI TY_GROUP 

(Security_Group_Key, Security_Group_Name, Entered_By_Users_Key, 
Modif ied_By_Users_Key) 
VALUES 

(SECURITYJ3ROUP_SEQ.NextVal, 'Regular', (SELECT MIN (User s_Key) FROM 
50 USERS), (SELECT MIN (Users_Key) FROM USERS) ) ; 



INSERT INTO SECURI TY_GROUP_USER 

(Security_Group_User_Key, Security_Group_Key, Users_Key, 
55 EnteredJ3y_Users_Key, Modif ied_By_Users_Key) 

VALUES 

(SECURITY_GROUP_USER_SEQ.NextVal, (SELECT MIN (Security_Group_Key) FROM 
SECURITYJ2ROUP) , (SELECT MIN (User s_Key) FROM USERS) , (SELECT 
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INSERT INTO S ECURI T Y_GROUP_TABLE 
5 (Security^ Group_Table_Key, Security_Group_Key, Security^ TableKey, 

Can_Browse_Flag, Can_Edit_Flag, Can_Add_Flag, Can_Delete_Flag, 

Entered_By_Users__Key, Modif ied_By_Users_Key) 
SELECT 

SECURITY_GROUP_TABLE_SEQ.NextVal, (SELECT MIN (Security_Group_Key) FROM 
10 SECURITY_GROUP) , Security_Table_Key, 1, 1, 1, 0, (SELECT MIN (Users_Key) 

FROM USERS) , (SELECT MIN (Users_Key) FROM USERS) 
FROM 

SECURITYJTABLE; 
INSERT INTO SECURITYJ3ROUP_TABLE 
15 (Security_Group_TableJKey, Security_Group_Key, Security_Table_Key, 

Can_Browse_Flag, Can_Edit_ Flag, Can_Add_Flag, Can_Delete_Flag, 

Enter ed_By_Users_^Key, Modi f ied_By_Us ers_Key ) 
SELECT 

SECURITY_GROUP_TABLE_SEQ.NextVal, (SELECT MAX (Security_Group_Key) FROM 
20 SECURITYJ3ROUP) , Security_Table_Key, 1, 0, 0, 0, (SELECT MIN (User s_Key) 

FROM USERS), (SELECT MIN (User s_Key) FROM USERS) 
FROM 

SECURITY TABLE; 



25 



30 



35 



CREATE TABLE HELP_SCHEMA ( 
Help_Schema_Key 
Help_Schema_Table 
He lp__S chema_Col umn 
PopUp_Text 

Entered_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Entry_Date 

Modified_By_Users_Key 

USERS (Users_Key) NOT NULL, 
Last_Modi£ied_Date 

); 

CREATE SEQUENCE HELP_SCHEMA_SEQ INCREMENT 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 



NUMBER ( * , 0 ) PRIMARY KEY NOT NULL, 

VARCHAR2(30) , 

VARCHAR2(30) , 

VARCHAR2(4000), 

NUMBER ( * , 0 ) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL, 
NUMBER (*,0) REFERENCES 

DATE DEFAULT SYSDATE NOT NULL 

BY 1 START WITH 1 NOMAXVALUE 



CREATE TABLE HELP_OB JECT ( 

Help_Object_Key NUMBER (*,0) PRIMARY KEY NOT NULL, 

Help_Ob j ect_Narae VARCHAR2 (255), 

45 PopUp_Tex t VARCHAR2 (4000), 

Entered_By_User s JKey NUMBER ( * , 0 ) REFERENCES 

USERS (Users_Key) NOT NULL, 
Entry_Date DATE DEFAULT SYSDATE NOT NULL, 

Modified_By_Users_Key NUMBER ( * , 0 ) REFERENCES 

50 USERS (Users_Key) NOT NULL, ' 

LastJ4odif ied_Date DATE DEFAULT SYSDATE NOT NULL 

) ; 

CREATE SEQUENCE HELP_OBJECT_SEQ INCREMENT BY 1 START WITH 1 NOMAXVALUE 
MINVALUE 1 NOCYCLE CACHE 10 NOORDER; 
55 INSERT INTO HELP_OBJECT 

(Help_Ob ject_Key, Help_Obj ect_Name, PopUp_Text , Entered_By_Users_Key , 
Modified_By_Users_Key) 
VALUES 
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(HELP_OBJECT_SE!PRextVal, ' stackLink 1 , • The$P iJH-PEfe ^^^HtSFWWP^ 

"stack" of pending table-sessions (which result from following drill-down 
and/or master/detail links) . You can "jump" back up to any previous stack- 
level (and abandon all intervening levels) by clicking on the 
5 corresponding link. 1 ,. (SELECT MIN (Users_Key) FROM USERS) , (SELECT 

MIN (Users_Key) FROM USERS) ) ; 

INSERT INTO HELP_OBJECT 

(Help_pbject_Key, Help_Object_Name, PopUp_Text, Entered_By_Users_Key, 
10 Modif ied_By_UsersJKey) 

VALUES 

(HELP_OB JECT__SEQ . NextVal , 'powerAddCheckbox' , 'When enabled, "power add" 
locks you into ADD mode for the current table (rather than returning you 
to BROWSE mode after you add the current record) .<p>This is useful when 
15 you need to add multiple records to the same table . <p>When you turn "power 

add" on, it remains on only until you leave ADD mode, navigate to another 
table, or explicitly turn it off."', (SELECT MIN (Users_Key) FROM USERS) , 
(SELECT MIN (User s_Key) FROM USERS) ) ; 

20 INSERT INTO HELP_OBJECT 

(Help_Object_Key, Help_Object_Name, PopUp_Text, Entered__By_Users_Key, 
Modif ied_By_User s_Key ) 
VALUES 

(HELP_OBJECT_SEQ. NextVal, ' navAddLink 1 , 'Adds a new record to this 
25 table.' V (SELECT MIN (UsersJKey) FROM USERS), (SELECT MIN (User s_Key) FROM 

USERS)); 

INSERT INTO HELP_OBJECT 

(Help_Object__Key, Help_Object_Name, PopUp_Text, Entered_By_Users_Key, 
30 Modif iedJBy_Users_Key) 

VALUES 

(HELP_OBJECT_SEQ. NextVal, ' navFullBrowseLink 1 , 'Browse the current table 
in its entirety (removing any filters currently in effect) . ' , (SELECT 
MIN(Users_Key) FROM USERS), (SELECT MIN(Users_Key) FROM USERS)); 

35 

INSERT INTO HELPJDBJECT 

(Help_Object__Key, Help_Object_Name, PopUp_Text, Entered_By_Users_Key, 

Modif ied_By_Users_Key) 
VALUES 

40 (HELP_OBJECT_SEQ. NextVal, 'drillLink', 'Allows you to "drill down" to the 

underlying table for the dropdown to the right. If the dropdown shows a 
value, this link will edit the corresponding record. If the dropdown is 
empty, this link will add a new record to the corresponding table . ' , 
(SELECT MIN (Users_Key) FROM USERS) , (SELECT MIN (User s_Key) FROM USERS) ) ; 

45 

INSERT INTO HELP_OBJECT 

(Help_Ob j ect_Key , Help_Ob j ect Name , PopUp_Text , Entered_By_JJsers_Key, 

Modif ied_By_Users_Key) 
VALUES 

50 (HELP_OBJECT_SEQ. NextVal, 'editLink', 'Takes you to EDIT mode for this 

record.', (SELECT MIN (User s_Key) FROM USERS) , (SELECT MIN <Users_Key) FROM 
USERS)); 

INSERT INTO HELP_OBJECT 
55 (Help_Object_Key, Help_Object_Name, PopUpJText, Entered_By_Users_Key, 

Modif ied_By_Users_Key) 
VALUES 

(HELP_OBJECT_SEQ. NextVal, ' navNewSearchLink • , 'Specify a new search filter 
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(from scratch) W: this table.', (SELECT MIpl©ef^t^B ©dM**©** 
(SELECT MIN (Users_Key) FROM USERS) ) ; 

INSERT INTO HELP_OBJECT 
5 (Help_Object_Key, Help_Object_Name, PopUpJText, Entered_By_Users_Key, 

Modified_By_UsersJECey) 
VALUES 

(HELP_OBJECT_SEQ . NextVal, 'navFilteredBrowseLink' , 'Browse the current 
table without resetting any current filters. 1 , (SELECT MIN (User s_Key) FROM 
10 USERS), (SELECT MIN (Users_Key) FROM USERS) ) ; 

INSERT INTO HELP_OBJECT 

(Help_Object_Key, Help_Object_Name, PopUpJText, Entered_By_Users_Key, 
Modified_By_Users_Key), 
15 VALUES 

(HELP_OBJECT_SEQ. NextVal, ' expressEdit Checkbox ' , 'When enabled, "express 
edit" will skip directly "from SEARCH mode to EDIT mode (bypassing BROWSE 
mode) if your search finds exactly one matching record. <p>This also 
applies when master /detail drill-downs find exactly one child record. <p> 
20 Once you turn "express edit" on, it remains on until you explicitly turn 

it off.', (SELECT MIN (Users_Key) FROM USERS) , (SELECT MIN (UsersJKey) FROM 
USERS) ) ; 

INSERT INTO HELP_OBJECT 
25 (Help_Object_Key, Help_Object_Name, PopUpJText, Entered_By_Users_Key, 

Modi f i ed_By_Us er s JKey ) 
VALUES 

(HELP_OBJECT_SEQ. NextVal, 'quickDrop', 'Restarts your session on the 
selected table (in either BROWSE or SEARCH mode, according to your 
30 selection from the radio buttons above).', (SELECT MIN (Users_Key) FROM 

USERS), (SELECT MIN (User s_Key) FROM USERS) ) ; 

INSERT INTO HELP_OBJECT 

(Help_Object_Key, Help_Object_Name, PopUp_Text, EnteredJ3y_Users_Key, 
35 Modified_By_Users_Key) 
VALUES 

(HELP_OBJECT_SEQ. NextVal, 'quickLink', 'Restarts your session on this 
table (in either BROWSE or SEARCH mode, according to your selection from 
the radio buttons to the left).', (SELECT MIN (User s_Key) FROM USERS), 
40 (SELECT MIN (Users_Key) FROM USERS) ) ; 

INSERT INTO HELP_OBJECT 

(Help_Object_Key, HelpJDbjectJSame, PopUp_Text, EnteredJBy_Users_Key, 
Modified_By_Users_Key) 
45 VALUES 

(HELP_OBJECT_SEQ. NextVal, 'mdLink', 'Allows you to "drill down" to a 
detail (or child) table for the current (master, or parent) table . <p>When 
you drill-down to a child table, your entire working context is 
constrained so that only records belonging to the current master-table 
50 record are visible.', (SELECT MIN (Users_Key) FROM USERS), (SELECT 

MIN (Users_Key) FROM USERS)); 

INSERT INTO HELP_OBJECT 

(Help_Object_Key, Help_Object_Name, PopUp_Text, EnteredJBy_Users_Key, 
55 Modified_By_Users_Key) 
VALUES 

(HELP_OBJECT_SEQ. NextVal, ' navRevisedSearchLink ' , 'Revise the current 
search filter for this table.', (SELECT MIN (User s_Key) FROM USERS), 
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CREATE OR REPLACE FUNCTION FORMATTE D_NAME (RecordID IN NUMBER) RETURN 
5 VARCHAR2 AS 

CURSOR cl IS SELECT DISTINCT LAST_NAME, FIRST_NAME, MI DDLE_NAME FROM 
PEOPLE WHERE People_Key = RecordID; 
retval VARCHAR2 (32767) ; 
BEGIN 

10 retval : = 1 ' ; 

FOR name_rec IN cl LOOP 

retval := name_rec . LAST_NAME I I ' I I name__rec . FIRST_NAME || 1 1 II 
name^rec . MI DDLE__NAME ; 
END LOOP; 
15 RETURN retval; 

EXCEPTION 

WHEN NO_DATA_FOUND THEN 
RETURN retval; 
END FORMATTEDJIAME; 

20 

CREATE OR REPLACE FUNCTION SHOW_BOOLEAN (BooleanValue IN NUMBER) RETURN 

VARCHAR2 AS 

BEGIN 

25 IF (BooleanValue <> 0) THEN RETURN , <center>×</center>» ; END IF; 

RETURN • 1 ; 
END SHOW BOOLEAN ; 



30 REM ***** Must complete data-entry for "lead user" before executing following 
modifications : 

ALTER TABLE PEOPLE ENABLE CONSTRAINT nn_company; 

ALTER TABLE PEOPLE ENABLE CONSTRAINT nn_city; 

ALTER TABLE PEOPLE ENABLE CONSTRAINT nn_country; 
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1. A method for automatically generating an end-user interface for working with the 
data within any arbitrary relational database, regardless of the size or complexity of 
said database, wherein said database comprises a plurality of tables, constraints 
and relationships, comprising: 

(a) interrogating said database, and extracting therefrom information specify- 
ing its table structures, constraints and relationships; and 

(b) using said information to construct a corresponding client application. 

2. The method of claim 1, wherein said client application provides support for end- 
user data-modification and -manipulation transactions, comprising creating, revis- 
ing, removing, and selecting among data records. 

3. The method of claim 1, wherein said client application further reveals and enforces 
non-relational constraints defined within the database for each individual table- 
column. 

4. The method of claim 1, wherein said client application further reveals and enforces 
relational interdependences (as embodied in referential-integrity constraints 
within the underlying database) across data tables. 

5. The method of claim 1, wherein said client application deduces relational inter de- 
pendencies, absent explicit back-end referential-integrity constraints, by comparing 
field names and associated attributes. 

6. In a method for providing an automatically generated end-user interface for work- 
ing with the data within any arbitrary relational database, said database comprising 
a plurality of tables, constraints and relationships, utilizing a hierarchical context 
stack for maintaining the working state of a particular (or primary) table while drill- 
ing-down across relationships to work with related information in a subordinate 
table. 
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7. The method ot cEttm 6, wherein said hierarchicaitr^Rtext staca M^h^rtto^M^ (& 
necessary) a constraining working context on the subordinate (drilled-to) table, so 
as to reveal and enforce any relational interdependence (referential-integrity con- 
straint) between the primary and subordinate tables. 

8. The method of claim 6, wherein said hierarchical context stack can return relevant 
changes to the primary table, thereby updating the primary-table record according 
to data-entry or -modification undertaken in the subordinate-table context. 

9. The method of claim 6, wherein said hierarchical context stack is exposed through 
the user interface, and allows random access to any pending (suspended) stack- 
context, with abandonment of all subordinate stack-contexts. 

10. The method of claim 6, wherein said hierarchical context stack is exposed through 
the user interface, and allows the restoration of any current screen display to its ini- 
tial state, thereby abandoning any subsequent but not-yet-cornmitted changes or 
data-entry by the user. 

11. The method of claim 6, wherein said hierarchical context stack is exposed through 
the user interface, and allows rollback recovery from a system exception, to any 
pending (suspended) stack context, with abandonment of all subordinate stack- 
contexts. 

12. A method for providing an end-user interface for working with the data within any 
arbitrary relational database, said database comprising a plurality of tables, con- 
straints and relationships, wherein said user interface conforms to a generalized 
and comprehensive paradigm. 

13. The method of claim 12, wherein said paradigm comprises: 

(a) a set of modes for interacting with the data in any given database table, 
and a corresponding display format for each mode; and 

(b) a set of rules and methods for moving among said modes. 

14. The method of claim 12, wherein said paradigm comprises: 
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(a) a set oiWHationship types between indMHuai -database 4names$-wtGP a^ceT- 
responding user-interface convention for representing each type of rela- 
tionship within the various display formats; and 

(b) a set of rules and methods for managing and navigating across such rela- 
tionships. 

15. The method of claim 12, wherein said paradigm comprises the sets of modes and 
rules of claim 13, and the sets of relationships and rules of claim 14. 

16. The method of claim 12, further comprising revealing and enforcing non-relational - 
constraints defined within the database for each individual table-column. 

17. The method of claim 12, further comprising revealing and enforcing relational in- 
terdependencies (referential-integrity constraints) across data tables. 

18. The method of claim 12, further comprising utilizing a hierarchical context stack to 
maintain the working state of particular tables while navigating across data rela- 
tionships to other tables, and a set of rules and methods for traversing said hierar- 
chical context stack. 

19. The method of claim 12, further comprising providing integrated security media- , 
nisms to mediate end-user access by function (browse, edit, add, delete) and scope 
(global-, table-, row-, and column-level). 

20. The method of claim 12, further comprising providing integrated help mechanisms 
to allow display (and dynamic specification) of descriptive pop-up texts for naviga- 
tional screen elements and for datafields. 

21. The method of claim 12, further comprising providing a structured framework for 
general, special-case, and user-defined exception-handling. 

22. The method of claim 12, further comprising providing a set of mechanisms, rules, 
and methods through which each end-user can evolve and manage personaliza- 
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tions to said parasngm, with persistent bac^-endfet&rage'aliB^MIBR^ 
and/or group. 

23. The method of claim 12, further comprising providing configurable support for a 
range of (alternative) record-editing concurrency-control behaviors. 

24. The method of claim 12, further comprising journaling and auditing of data- 
modification activity so as to allow reconstruction of user-action and data-state his- 
tory. 

25. The method of claim 24, further comprising requiring end-users to provide justifi- 
cation for changes to certain datafields (with transaction abandonment without said 
justification, and logging-to-journal of provided justifications). 

26. A method for automatically constructing a representation of any database table, 
which resolves all cross-table relationships so as to supplant internal key fields in 
the primary table with corresponding descriptive fields derived from the related 
tables. 

27. The method of claim 26, further comprising rendering said representation in the na- 
tive language of the underlying relational-database engine, wherein it subse- 
quently can be executed on demand. 

28. The method of claim 26, further comprising utilizing formal data-structure rules 
and naming conventions in analyzing the related tables to automatically determine 
a default construction for each descriptive related-column field. 

29. The method of claim 26, further comprising allowing for explicit specification of 
rendering instructions for individual related-column fields, as (ancillary) sub- 
representations, and for merging said ancillary representations into the primary 
representation. 

30. The method of claim 29, wherein said explicit specification can override the default 
construction determined in accordance with claim 28. 
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31. The method of cHEn 29, further comprising sco]*f%eOt eXfO^ilifea^rifi^ 

tions, so as to enable both database-wide (global) and primary-table-specific (local) 
specifications. 

32. A method for automatically modifying the representation of any database table, so 
as to introduce additional row-level filtering logic based on a specified relation be- 
tween the underlying-table data and the end-user identity, and without otherwise 
altering said representation or affecting any interdependent software functions. 

33. The method of claim 32, further comprising rendering said representation in the na- 
tive language of the underlying relational-database engine, wherein it subse- 
quently can be executed on demand. 

34. In a method for providing an automatically generated end-user interface for work- 
ing with the data within any arbitrary relational database, said database comprising 
a plurality of tables, constraints and relationships, enhancing and extending the 
representation of the table structures and relationships so as to further support 
revelation of the schema structure through external interrogation. 

35. The method of claim 34, further comprising using naming conventions. 

36. The method of claim 34, further comprising using annotational methods. 

37. The method of claim 36, further comprising storing said annotations within the da- 
tabase itself, or within ancillary storage. 

38. In a method for providing an automatically generated end-user interface for work- 
ing with the data within any arbitrary relational database, said database comprising 
a plurality of tables, constraints and relationships, extending, customizing, adapt- 
ing, or overriding the baseline UI paradigm provided by said method to support 
special requirements. 

39. The method of claim 38, further comprising using annotational methods. 
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40. The method of ct&n 38, further comprising storifigte^ da- 
tabase itself, or within ancillary storage. 



41. A computer-readable medium containing program instructions for carrying out the 
method of any of claims 1, 6, 12, 26, 32, 34 and 38. 

42. A system for automatically generating an end-user interface for working with the 
data within any arbitrary relational database, regardless of the size or complexity of 
said database, wherein said database comprises a plurality of tables, constraints 
,and relationships, comprising: — ~ - 

(a) means for interrogating said database, and extracting therefrom informa- 
tion specifying its table structures, constraints and relationships; and 

(b) means for using said information to construct a corresponding client ap- 
plication. 

43. The system of claim 42, wherein said system is integrated with an RDBMS. 

44. In a system for providing an automatically generated end-user interface for work- 
ing with the data within any arbitrary relational database, said database comprising 
a plurality of tables, constraints and relationships, means for utilizing a hierarchical 
context stack for maintaining the working state of a particular (or primary) table 
while drilling-down across relationships to work with related information in a sub- 
ordinate table. 

45. A system for providing an end-user interface for working with the data within any 
arbitrary relational database, said database comprising a plurality of tables, con- 
straints and relationships, wherein said user interface conforms to a generalized 
and comprehensive paradigm. 

46. The system of claim 45, wherein said system is integrated with an RDBMS. 

47. A system for automatically constructing a representation of any database table, 
which resolves all cross-table relationships so as to supplant internal key fields in 
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the primary tabfl^Gith corresponding desmptivdMdiF^ 
tables. 



48. A system for automatically modifying the representation of any database table, so 
as to introduce additional row-level filtering logic based on a specified relation be- 
tween the xmderlying-table data and the end-user identity, and without otherwise 
altering said representation or affecting any interdependent software functions. 

49. In a system for providing an automatically generated end-user interface for work- 
ing with the data within any arbitrary relational database, said database comprising 
a plurality of tables, constraints and relationships, means for enhancing and extend- 
ing the representation of the table structures and relationships so as to further sup- 
port revelation of the schema structure through external interrogation. 

50. In a system for providing an automatically generated end-user interface for work- 
ing with the data within any arbitrary relational database, said database comprising 
a plurality of tables, constraints and relationships, means for extending, customiz- 
ing, adapting, or overriding the baseline UI paradigm provided by said method to 
support special requirements. 
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